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ABSTRACT 


An  interactive  program  for  microcomputers,  TOWCALC,  was  developed  to  implement  the 
results  of  recent  theoretical  work  in  nonlinear  towing  dynamics.  This  work  makes  possible  a 
statistical  description  of  extreme  tensions  in  towlines  based  on  the  seakeeping  motions  of  the 
tug  and  the  tow,  where  the  extreme  tension  is  defined  as  the  sum  of  static  tension  and  peak 
dynamic  tension  which  has  a  probability  of  0.001  of  occurring  in  a  given  day  of  towing.  The 
resulting  data  base  of  extreme  tensions  (for  a  range  of  tugs,  tows,  towing  speeds,  towline 
lengths,  sea  states,  and  wave  angles)  is  incorporated  into  TOWCALC,  which  automates  the 
process  of  estimating  mean  towline  tension  and  extreme  towline  tension.  Mean  towline  ten- 
sion is  estimated  using  methods  given  in  the  U.S.  Navy  Towing  manual  for  resistance  of  the 
tow,  and  an  analytic  method  is  developed  for  the  towline  resistance.  TOWCALC  gives  tow 
planners  the  ability  to  quickly  evaluate  the  feasibility  of  a  given  tow,  as  well  as  to  evaluate 
the  level  of  risk;  tug  operators  at  sea  will  be  able  to  anticipate  dangerous  peak  tensions  and 
take  steps  to  reduce  the  risk  of  towline  failure.  As  a  result,  using  TOWCALC  will  lead  to 
safer  and  more  efficient  ocean  towing. 
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Chapter  1 
Introduction 


As  in  all  maritime  endeavors,  there  is  an  element  of  risk  in  ocean  towing.  Ship  motions 
due  to  heavy  seas  can  induce  dynamic  loads  in  the  towline  sufficient  to  cause  failure  with 
possibly  disastrous  consequences,  endangering  personnel,  hazarding  the  tug  and  tow,  and,  in 
some  cases,  endangering  the  environment. 

Managing  the  risk  of  towline  failure  requires  some  measure  of  the  magnitude  of  these 
dynamic  loads.  Previously,  the  dynamics  of  towing  with  regard  to  the  seakeeping  motions  of 
the  vessels  had  not  been  studied  in  any  detail,  so  there  were  no  quantitative  means  to  predict 
towline  dynamic  tensions.  Towing  system  design  used  a  single  factor  of  safety  applied  to  the 
mean  towline  tension  to  account  for  dynamic  loads;  comparison  with  the  towline' s  nominal 
breaking  strength  was  then  used  to  evaluate  the  risk  of  towline  failure. 

This  simplistic  approach  has  been  replaced  in  Naval  practice  by  the  results  of  recent 
theoretical  work  (Frimm  [1],  Milgram  [2])  which  make  possible  a  statistical  prediction  of 
extreme  tension  based  on  the  nonlinear  towline  dynamics.  These  results  predict  extreme 
towline  tension  (mean  plus  peak  dynamic)  based  on  the  mean  tension.  Using  these  methods 
to  compute  extreme  tensions  directiy  is  not  feasible,  however,  for  tow  planners  and  tug  oper- 
ators. Consequentiy,  a  data  base  of  extreme  tensions  for  various  combinations  of  tug,  tow, 
towline  length,  tow  speed,  wave  angle,  and  sea  state  was  developed.  This  has  been 
incorporated  into  the  latest  revision  of  the  U.S.  Navy  Towing  Manual  [3],  consisting  of  a 
series  of  tables  and  graphs  from  which  a  tow  planner  or  a  tug  operator  may  determine  the 
extreme  tension  which  has  a  probability  of  0.001  of  occurring  in  a  day  of  towing. 
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Armed  with  this  knowledge,  planners  and  operators  can  better  evaluate  the  risks,  and 
thus  make  more  intelligent  decisions  regarding  a  given  towing  situation,  leading  to  safer, 
more  efficient  towing.  The  procedures  for  computing  extreme  towline  tensions,  however,  are 
laborious  and  time  consuming,  and  thus  do  not  lend  themselves  to  exploring  alternatives. 

The  purpose  of  this  thesis  is  to  provide  an  interactive,  microcomputer  based  program 
which  automates  the  process  of  predicting  extreme  towline  tensions,  to  be  used  by  U.S.  Navy 
personnel  involved  in  both  the  planning  and  execution  of  ocean  tows.  This  will  give  tow 
planners  the  ability  to  quickly  evaluate  the  feasibility  of  a  given  tow,  as  well  as  to  evaluate 
the  level  of  risk.  Tug  operators  at  sea  will  be  able  to  anticipate  dangerous  peak  tensions  and 
take  steps  to  reduce  the  risk  of  towline  failure. 

Chapter  2  discusses  the  problem  of  towing  dynamics,  outlining  the  theory  of  nonlinear 
extreme  tensions  and  their  prediction.  Chapter  3  discusses  the  methods  used  to  predict  the 
resistance  of  the  tow  and  of  the  towline,  which  together  give  the  mean  towline  tension,  a  pre- 
requisite for  the  prediction  of  extremes.  Chapter  4  describes  in  detail  the  computer  program, 
TOWCALC,  developed  to  implement  the  results  of  the  recent  theoretical  developments. 
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Chapter  2 
Towing  Dynamics 

2.1  Introduction 

My  purpose  here  is  to  outline  the  problem  of  towing  dynamics,  particularly  as  it  relates 
to  the  planning  and  operation  of  ocean  tows.  A  more  thorough  and  complete  treatment  of 
towing  dynamics  is  given  by  Milgram  [2],  which  forms  the  theoretical  basis  for  much  of  this 
work,  and  which  is  summarized  here  in  part. 

The  goal  of  the  analysis  that  follows  is  to  determine  the  magnitude  of  the  dynamic,  or 
time-varying,  loads  experienced  by  the  towline  in  order  to  better  predict  the  possibility  of  its 
breaking.  To  do  so,  we  must  form  a  mathematical  model  of  the  complete  towing  system, 
which  includes  the  tug,  tow,  and  towline,  as  well  as  a  description  of  the  environment.  The 
motions  of  the  tug  and  tow  are  well  described  in  terms  of  linear  seakeeping  theory;  the  tow- 
line  tension,  however,  presents  a  number  of  sources  of  nonlinearity. 

In  this  chapter,  I  will  discuss  the  nonlinear  model  for  towline  tension,  the  twelve- 
degree-of-freedom  towing  system  model,  the  statistics  of  extreme  tensions,  and  the  develop- 
ment of  an  extreme  tension  database. 

2.2  Assumptions 

There  are  a  number  of  assumptions  made  in  this  analysis  regarding  the  composition  of 
the  towing  system.  First,  only  single  tows  are  considered:  multiple  tows,  although  common 
in  practice,  are  beyond  the  scope  of  the  present  analysis.  We  consider  here  only  wire  rope 
towlines,  as  these  are  the  primary  towlines  used  by  Navy  towing  vessels  when  conducting 
ocean  tows. 
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The  composition  of  the  towline  system,  which  connects  the  tug  and  tow,  is  assumed  to 
be  a  single  shot  (90  feet)  of  chain  connected  to  the  towline,  with  20  feet  of  the  chain  on  the 
deck  of  the  tow;  the  remaining  70  feet  extends  past  the  bow.  The  chain  serves  two  purposes: 
it  prevents  the  towline  from  chafing  against  the  deck  edge  of  the  tow,  and  it  reduces  the 
effective  stiffness  of  the  catenary.  In  reality,  most  Navy  tows  are  rigged  with  a  towing  bridle 
that  consists  of  two  shots  of  chain  connected  to  a  "flounder's  plate",  to  which  an  additional 
length  of  chain  is  attached;  this  final  chain  pendant  is  then  connected  to  the  towline.  Figure 
2.1  shows  the  two  arrangements. 

The  analysis  of  nonlinear  extreme  tensions  presented  here  presumes  a  fixed  towline 
length.  Many  Navy  towing  vessels  have  constant  tension  winches,  however,  which  actively 
control  towline  length  in  response  to  the  load.  Use  of  these  winches  in  automatic  mode  is 
standard  practice,  and  greatly  reduces  peak  dynamic  tensions  in  the  towline.  Consequently, 
the  results  presented  here  apply  directly  to  fixed  length  towlines  and  will  give  conservative 
estimates  of  dynamic  loads  when  the  towing  winch  is  used  in  automatic  mode. 
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Figure  2.1.  Towing  Bridle  (ieometry 
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2.3  Nonlinear  Towline  Model 

2.3.1  Nonlinear  Equations  of  Motion 

The  towline  is  modeled  as  a  cable,  thai  is.  as  a  perfectly  flexible  Curved  rod.    Hie  yo\ 
erning  differential  equations  lor  towline  dynamics  can  be  written  as  (Triantalvllou  |4|) 


d:q 

dr 


01  + 


<Yq 


b 


At 


dq 

<)t 


/a 


with 


T  =  EA 


Po      (X 


1     ('(dq 


_L     LX  lllS+2LJa  [<h  , 


y 


ds 


where 


A  =  cross-sectional  area  of  the  cable 

E  =  Young's  modulus  of  the  towline 

m  =  towline  mass  per  unit  length 

w  =  towline  weight  per  unit  length 

s  =  Lagrangian  coordinate  along  towline 
q,p  —  normal  and  tangential  motions  along  towline 
T,T  =  stauc  tension  and  dynamic  tension 
D,L  =  cable  diameter  and  length 

p  =  mass  density  of  water 

p0  =  tangential  displacement  distribution  due  to  T 

b  =    pCDD  =  sectional  drag  factor 

CD  =  towline  sectional  drag  coefficient 
a  =  wL/T  =  catenary  static  curvature 


(2.1) 


(2.2) 


K> 


These  equations  contain  some  considerable  simplifications  when  compared  to  a  com 
plete  dynamical  model  for  cables,  but  tor  a  towline  whose  static  configuration  changes 
slowly  in  a  seaway  the  model  is  adequate.   Equations  (2.1)  and  (2.2)  preserve  the  follow  mr 
nonlinearities  (Milgram  |2]): 

1)  the  crossflow  drag  force, 

2)  the  product  of  the  dynamic  tension  and  the  dynamic  curvature, 

3)  the  nonlinear  tension-displacement  relation  for  a  towline  undergoing  clipping, 

4)  the  geometric  nonlinear  tension  extension  relationship  for  a  catenary. 

The  crossflow  drag  experienced  by  the  towline  is  due  to  its  transverse  motion.   At  the 
frequencies  of  towline  end  motion  excitation  found  in  towing  situations,  the  drag  force  can 
dominate  inertia  forces.  This  drag  opposes  the  transverse  motions,  considerably  reducing 
their  magnitude,  with  the  net  effect  that  the  towline  must  stretch  to  accommodate  the  end 
motions. 

Clipping  refers  to  the  phenomenon  of  a  cable  that  becomes  completely  slack,  and  then 
taut  again,  as  happens  during  towing.  This  occurs  because  the  cable  cannot  support  compies 
sion. 

The  dominant  nonlinearity  in  towing  dynamics  is  the  relationship  between  tension  and 
cable  extension.   Figure  2.2  shows  this  relationship  for  a  representative  towline.   Over  a  rela 
tively  large  range  of  cable  span,  the  static  tension  is  a  linear  function  ol  span.    This  is  because 
the  cable  responds  to  the  motion  of  its  end  points  by  changing  its  geometry — the  effect  of 
the  catenary.  Beyond  a  certain  point,  however,  the  towline  can  no  longer  accommodate  its 
end  motions  in  this  manner,  but  must  stretch,  with  the  highly  nonlinear  effects  exhibited  in 
Figure  2.2. 
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Figure  2.2.  Towline  Tension  vs.  Span 


23.2  Polynomial  Approximation 

The  fundamental  parameters  used  to  describe  the  towline  are  the  elongation  (t)  and  its 
time  derivative  (£,),  where  the  elongation  of  the  towline  is  defined  as  the  tangential  motions  at 
both  ends.  Based  on  a  series  of  time  domain  simulations  of  towline  behavior  using  equations 
(2.1)  and  (2.2)  (confirmed  by  experimental  results  [2]),  the  nonlinear  tension  can  be  accu- 
rately represented  as  a  polynomial  approximation  of  the  form 


3         3 

I      I 
m -On -0 


f«<«)-  I  laJi  j%\t) 


with: 


m+n  <3 


l(m,n)#(0,0) 

The  time  simulations  are  performed  for  the  desired  towline  geometries  and  static  ten- 
sions, forcing  the  towline  sinusoidally  at  various  frequencies  and  amplitudes  over  the  range 
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of  frequencies  and  amplitudes  of  interest  in  real  towing  situations.  From  these  N  simulations, 
typically  several  hundred,  N  triplets  of  elongation,  rate  of  change  of  elongation,  and  dynamic 
tension  (^,,^,,7,)  are  generated.  Next,  the  set  of  N  overspecified  equations  is  formed  as 

I    iam£T  =  f,  (2.3) 

m  =0n  =0 

.,       J    m+n  <3 
with:  /  =  \,....,N 

l(m,n)*(0,0) 

and  the  coefficients  amn  are  determined  such  that  the  weighted  mean  square  error  is  mini- 
mized. Weighting  is  used  to  ensure  the  resulting  towline  model  is  most  accurate  for  the 
larger  tensions  which  are  of  greater  concern  for  ship  motions  and  towline  safety.  The 
weighting  used  is 

1        fj 
co,(H,/D)r 

where  E,  is  the  elongation  amplitude,  co,  is  the  circular  frequency  of  the  excitation,  and  D  is 
the  cable  diameter. 

2.4  Towing  System  Model 

A  tug  and  tow  at  sea  comprise  a  twelve-degree-of-freedom  system,  with  each  ship 
being  driven  in  its  own  six  degrees  of  freedom  by  both  ocean  waves  and  by  the  dynamic  ten- 
sion of  the  connecting  towline.  Figure  2.3  shows  the  geometry  of  such  a  towing  system. 

The  statistics  of  the  motions  of  a  single  ship  in  a  seaway  are  well  modeled  by  linear 
seakeeping  theory  in  terms  of  the  ship  motion  frequency  responses  to  wave  surface  elevation, 
using  a  stochastic  description  of  ocean  waves,  such  as  a  Pierson-Moskowitz  spectrum  (see 
Figure  2.4),  as  input.  Until  recently,  however,  there  has  been  little  analysis  of  the  more  com- 
plex problem  presented  by  one  ship  towing  another  [2]. 
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00 


Figure  2.3.  Towing  Geometry 
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Figure  2.4.  Pierson-Moskowitz  Sea  Spectrum 
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The  equations  of  motion  of  the  twelve-degree  -of- freedom  system  can  be  written  in  the 
frequency  domain  as 

[-©X(o>.)  +  ^.B,(a).)  +  CJX,»F,((Dj  (2.4) 

where 


X  .= 


l*2J 


12x1 


M,(CD.)» 


B,(co.)  = 


M,  +  A,((o,)  0 

0  M,  +  A2(cdJ 


B,((or)-D, 


I) 


C.» 


.•I 


C,-KM 


B2(co,)-D 


.'.'j 


12x12 


I2x!2 


K, 


Kj,         C2      K^2 


12x12 


*>>.)  = 


_F2((D>,e_ 


12x1 


and  where 

M,,M2 

Ap  A2 


B,,B2 


C    C 

v^,,  v-2 

F   F 

rl'r2 

BpB2 


encounter  frequency 

generalized  mass  matrices  for  tug  and  tow 

generalized  added  mass  matrices  for  tug  and  tow 

damping  coefficients  for  tug  and  tow 

hydrostatic  restoring  force  matrices  for  tug  and  tow 

wave  exciting  force  vectors  for  tug  and  tow 

motion  response  vectors  for  tug  and  tow 


0  is  the  phase  of  the  wave  at  the  center  of  gravity  of  the  tow  with  respect  to  the  phase  of  the 
wave  at  the  center  of  gravity  of  the  tug. 
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The  effects  of  the  towline  on  the  ship  motions  are  found  by  using  the  theory  of  equiva- 
lent linearization  [1],  which  assumes  a  linear  relationship  between  the  towline  tension  and  its 
extension  and  time  derivative  of  extension.  Using  this  theory,  the  total  towline  tension,  TT, 
the  sum  of  static  and  dynamic  tensions,  is  given  by 


Tr^T  +  kJi  +  bJi 


S,= 


The  linearized  unsteady  extension  is 

%  =  S,  •  X,  +  S2  •  X2 
where  S,  and  S2  are  given  in  terms  of  the  towing  geometry  (Figure  2.3)  as 

cos  a,  cos  y 

cos  a,  sin  y 

sin  a, 

— jfj  cos  aj  sin  y 

/,  cos  ctj  cos  y+ px  sin  oc, 

-px  cos  aj  sin  y 

-cosa,cos(Y+Yo) 

-cosa,sin(Y+yo) 

sinoCj 

^cosc^sintY+Vo) 

-f2  COS  0^  COS(Y+  \|/0)  -  P2  sm  °2 

-p2  cos  ot,  sin(Y+ Vo) 

The  unsteady  forces  exerted  on  the  tug  and  the  tow  by  the  towline  can  be  written,  in  the 
frequency  domain,  as 

Fff,  =  K11X1  +  K12X2  +  D11X1  +  D12X2 
YHl  =  K.uXl  +  K^^  +  D21X,  +  DjjXj 

given  in  terms  of  the  restoring  force  matrices  K  and  the  damping  matrices  D.  Expressions 
for  the  K's  and  D's  are  given  by  Frimm  [2], 
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s2  = 


Solving  equation  (2.4)  gives  the  frequency  domain  ship  motion  vector  in  terms  of  the 
\\  ave  exciting  force  vector  as 

X,(a>#)  =  [-co;M,(co,)  +  /co,B,(co,)  +  C  J  "'f t(o>J 

where  again  both  X,  and  ¥s  are  for  the  complete  twelve-degree-of-freedom  system. 

The  wave  excitation  forces  can  be  written  as 

F,(o>.,p)  =  W((D.>p)HWP(co.,P) 

where  co,  is  the  encounter  frequency  of  the  wave.  (3  is  the  propagation  angle  of  the  wave  with 
respect  to  the  course  of  the  tug  (see  Figure  2.5),  W(w€l  p)  is  the  wave  amplitude,  and 
HHT(co,,  p)  is  the  transfer  function  from  wave  amplitude  to  tug  and  tow  wave  forces. 


Figure  2.5.  Wave  Angle  Coordinate  System 
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The  frequency  domain  towline  extension  depends  on  the  wave  amplitude  and  direction 
as 

S(co„  p)  =  S' I-wXK)  +  to,B,(a>.)  +  CJ  ' Hwr (©„  P)W(a>„  P) 

where  Sr  is  the  transpose  of  S,  given  by 

S'  =  [S&] 

The  directional  transfer  function  from  wave  amplitude  to  towline  extension  can  thus  be 
expressed  as 

Hn((t>„  p)  =  S7  [-(0X(0>.)  +  «°.B,(«>.)  +  CJ  ~'lV(a)„  P) 
and  for  any  directional  encounter  frequency  wave  power  density  spectrum  £^(0),,  P),  the 
linearized  towline  extension  power  density  spectrum,  S^(o)J,  is  given  by 

2k 

SK(CD.)  =  J  S^CD.,  p)  |  ff^CD.,  P)|  Vp  (2.5) 

We  will  need  the  moments  of  S^(a)J,  mn  ,  n  =  0, 2, . . .,  in  the  analysis  of  extreme  tension 
statistics.  These  moments  are  given  by 


^  =  J(o;5%(co.Wco, 


m 

o 


2.5  Extreme  Tension  Statistics 

Since  the  sea  waves,  which  are  a  random  process,  are  the  driving  excitations  in  the 
dynamic  motions  of  the  tug  and  tow,  and  thus  in  the  magnitude  of  the  dynamic  towline  ten- 
sion, the  towline  tension  will  also  be  a  random  process.  Thus,  the  best  way  to  predict  towline 
tension  is  to  use  a  statistical  approach. 
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The  most  useful  statistic  is  the  extreme  tension  thai  has  i  prescribed  probability  ol  noi 

occurring  during  a  given  tune.   Such  a  statistic  is  called  a  "short  term  extremal  ItatlStit  ".  to 
which  we  turn  next. 

2.5.1  Short  Term  Extremal  Statistics 

Suppose  the  dynamic  tension  I\t)  is  linear,  ami  thus  a  gaussian  random  DTOCeSS     V\  r 
define  „/\,  as  the  tension  value  that  has  a  probability  a  oi  being  exceeded  in  a  period  ol  .V 
seconds.   For  example,  0.001  ^wnoo  is  the  value  of  V' that  has  a  probability  of  0.001  o!  beinj 
exceeded  in  86,400  seconds  (one  day). 

The  theory  of  short  term  extremal  statistics  oi  large  extremes  ol  gaussian  random  DT0 
cesses  gives 


where  nu  and  m2  are  the  zeroth  and  second  moments  of  Sn((o),  the  powei  density  spectrum 

of  the  random  process  7"(/). 

While  this  result  is  valid  for  finding  the  statistics  of  extremes  for  ship  motions  and  the 
towline  extension,  it  is  not  valid  for  the  exta-me  tensions  oi  wire  rope  towlines.    This  is 
because  the  highly  nonlinear  relationship  between  towline  extension  and  tension  (Figure  •1  2) 
makes  the  dynamic  tension,  f(t),  it  very  non  gaussian  random  process. 

The  maxima  of  the  total  towline  tension  is  formed  by  the  maxima  ol  the  dynamic  ten 
sion  T  added  to  the  static  tension  T.  Since  T  is  constant,  to  evaluate  tension  extremes  we 
need  consider  only  f.  A  theory  for  extremes  which  allows  inclusion  ol  the  nonlinc.u 
behavior  of  the  towline  1 1 1  follows. 
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A  cycle  of  f  is  defined  as  the  behavior  of  f  from  a  time  that  it  is  zero  and  increasing  (a 

positive  zero  upcrossing)  until  the  time  of  the  next  positive  zero  upcrossing.  The  maximum 
value,  or  peak,  reached  by  f  during  one  cycle  is  a  random  variable,  Y.  The  probability  distri- 
bution function  for  Y,  FY(Y()),  is  the  probability  that  Y  is  less  than  Y0. 

For  a  large  number  of  cycles,  n,  and  a  value  Y0  much  larger  than  the  average  peak,  the 
largest  peak  during  this  period  is  designated  Y„.  The  probability  that  Y„  is  less  than  Y0, 
FY  (Y0),  is  approximated  as 

FYn(Y0)  =  [FY(YX 

This  approximation  assumes  that  because  Y0  is  large,  occurrences  of  it  being  exceeded  are 
well  separated  in  time  so  they  can  be  considered  statistically  independent. 

The  value  of  Y„  that  has  a  probability  a  of  being  exceeded  is  aY„,  and  so 

l/\CYX-l-«    or    WO^l-af 

If  the  function  FY(Y0)  is  known,  then  aY„  can  be  found  as 

BY,  =  F;1[(1-(X)1/B] 

Let  aTn  be  the  random  value  of  the  largest  tension  peak  occurring  in  a  time  interval  Ar 

whose  probability  of  being  exceeded  is  a.  The  average  number  of  cycles  per  second  of  T  is 
called  7V(0).  Thus,  aT„  is  related  to  aY„  by  n  =  /V(0)Ar  and  so 

J^  =  F-Y1[(l-a)UN^]  (2.6) 

aY„  and  aTn  are  short  term  extremal  statistics  of  the  tension  peaks.  To  find  them  we 

must  determine  FY(Y0),  the  probability  distribution  function  (pdf)  for  the  value  of  an  arbitrary 
tension  peak. 
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The  frequency  of  upcrossings  by  f  of  any  dynamic  tension  level  Y„  is  called  A/CY,,), 
which  is  given  by 


/V(Y 


0)  =  jtf(y0, 


t)dt 


(2.7) 


where /(r,  t)  is  the  joint  pdf  for  the  tension  and  its  time-derivative.  The  frequency  of  zero 


upcrossings  is 


/V(0) 


=  jtf(Q, 


t)dt 


These  frequencies  are  related  to  the  pdf  of  an  arbitrary  tension  peak  through 

/V(Y0) 


FyOy-i- 


/V(0) 


(2.8) 


The  approach  is  to  find  the  level  crossing  frequencies,  N(Y{)),  then  use  equation  (2.8)  to 

find  the  pdf  for  the  peak  amplitudes,  Fy(Y0),  and  then  use  equation  (2.6)  to  find  the  desired 
extremal  statistics. 

The  details  of  this  analysis  are  given  by  Frimm  [1  ],  with  the  result  that  equation  (2.7)  is 
integrated  directly  in  the  (£,,  £,)  plane,  after  a  suitable  transformation  of  variables  to 


d\ 


where  s  =  (£#,  £,0)  are  the  points  along  the  constant  tension  curve  t  =  Y0  in  the  (^,  ^)  plane,  s, 


and  ^are  the  initial  and  final  values  of  s,  «(...)  is  the  unit  step  function,  and  p^...)  is  the  joint 
pdf  of  the  cable  extension.  This  last  is  given  by 

1 


Pl{%,%,%)  = 


(2tc)3/2^7a 


exp 


ll  .      A    R 


2A 


"h 
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where  A  =  w„,w4>  -  ///.  ,  and  w(),///,  ,m,   aw  the  extension  spectra]  moments  determined 

s        s  s 

from  equation  (2.s>. 

2.5.2  Computational  Method 

Figure  2.6  shows  the  overall  scheme  for  computing  the  extreme  tension  statistics. 

First,  the  towline  governing  equations  are  solved  to  produce  a  set  oi  tune  simulations  ot  cable 
behavior.   From  these,  equation  (2.3)  is  solved  tor  the  </,„„' s  toi  each  towlme  condition    With 
these,  the  twelve-degree-of-freedom  motion  equations  aie  solved  itciativcly,  using  the  eqim 
Blent  linear  towline  model  to  predict  ship  motions.  (  )ik  e  convergence  is  obtained,  the  tesult 
ing  towline  extension  spectrum  is  used  to  calculate  the  "extreme  tension",  /",„,  which  is 
defined  as 

T    =        f        +T 

'  txl         0.001  •*   KMIXI  T   ■ 

and  T  is  the  mean  static  tension. 
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Figure  2.6.  Data  Flow  for  Computational  Scheme 

2.5.3  Data  Base  Development 

Ideally,  this  method  for  predicting  the  nonlinear  extreme  tensions  would  be  used 
directiy  by  tow  planners  and  tug  operators.  However,  the  computational  requirements  are 
currentiy  beyond  the  resources  available  to  these  potential  users.  Consequentiy,  a  more  prac- 
tical alternative  was  developed  to  bring  the  results  of  this  analysis  to  the  fleet. 

Since  the  extreme  tension  depends  on  tug  and  tow  geometries  and  weight  distributions, 
towline  characteristics  and  length,  mean  tension,  towing  speed,  sea  state,  and  towing  direc- 
tion with  respect  to  the  waves,  a  data  base  of  extreme  tensions  was  developed  for  various 
combinations  of  these  parameters.  Table  2.1  lists  the  particular  values  used  in  generating  the 
data  base. 
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The  resulting  extreme  tensions  were  plotted  against  the  mean  tension  and  compared 
against  a  set  of  100  "standard  curves"  [2].  Based  on  that  comparison,  a  table  was  developed 
showing  the  appropriate  standard  curve  to  use  for  the  given  combination  of  towing  parame- 
ters. The  curve  selected  is  the  one  which  minimizes  the  error  between  it  and  the  tensions 
computed  from  the  non-linear  theory.  A  weighted  least  squares  method  was  used  such  that 
the  curve  selected  minimized  the  error  near  extremes  corresponding  to  70  percent  of  the 
breaking  strength  of  the  tow  wire. 

Although  the  range  of  towed  vessels  in  the  data  base  of  extreme  tensions  covers  most 
of  the  vessels  in  the  Navy,  the  very  largest,  aircraft  carriers,  were  omitted.  Towing  an  air- 
craft carrier  is  a  rare  event,  but  should  the  need  arise,  it  is  important  that  Commanding  Offi- 
cers and  Masters  be  able  to  predict  their  ability  to  safely  tow  the  vessel. 

Consequently,  a  representative  aircraft  carrier,  CVN  65,  with  displacement  of  85,000 
long  tons,  was  chosen  to  be  included  in  the  data  base.  The  tables  of  standard  curve  choices 
that  resulted  are  given  in  Appendix  A.  To  facilitate  use  by  Fleet  personnel,  the  wave  angle  (3 
is  replaced  by  a  heading  angle,  where 

heading  angle  =  wave  angle  +  1 80°. 
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Tugs:                      ARS  38 

ARS  50/ATS  1            T-ATF  166 

Towline  dia:                2.00  in 

2.25  in 

2.25  in 

Displacement:              1900  LT 

3200  LT 

2260  LT 

Tows 

Displacement 

YRBM    Berthing  barge 

650  LT 

FFG  1      Frigate 

3200  LT 

DD963   Destroyer 

6700  LT 

AE  26     Ammunition  Ship 

20,000  LT 

LHA  1     Assault  Carrier 

40,000  LT 

Wind  Speed  (kts)              15 

20              25 

30 

Tow  Speed  Gets)              3.0 

6.0            9.0 

Towline  Length  (ft)           1000 

1200          1500          1800         2100 

Mean  Tension  (lbs)         10,000 

20,000      40,000       80,000      120,000 

Wave  Angle  (deg)              0 

60             120 

180 

Table  2.1.  Data  Base  Towing  Parameters. 
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Chapter  3 
Resistance  Prediction 


In  order  to  use  the  extreme  tension  results  of  the  previous  chapter,  the  mean  towline 
tension  must  be  measured  or  estimated.  In  this  chapter,  I  discuss  methods  for  predicting  both 
the  resistance  of  the  towed  vessel  and  the  resistance  of  the  towing  hawser. 

3.1  Tow  Resistance 

The  resistance  of  a  vessel  in  a  seaway  at  low  speeds  is  not  well  understood,  particularly 
because  the  added  resistance  due  to  waves  at  low  speeds  is  a  poorly  understood  phenomenon. 
Nevertheless,  the  U.S.  Navy  Towing  Manual  [3]  gives  largely  empirical  procedures  for  esti- 
mating the  resistance  of  vessels  at  towing  speeds.  These  have  produced  reasonably  useful 
results  over  the  years,  and  they  are  adopted  herein  for  lack  of  any  better,  practically  useful 
methods. 

The  total  tow  resistance,  RT,  is  assumed  to  be  made  up  of  four  components,  and  can  be 


written  as 


AT  —  rvH  +  Rs  +  R  w  +  Ap 


where 


RH  =  calm  water  hull  resistance 


/?w  =  wind  resistance 


Rs  -  added  resistance  due  to  waves 


Rp  =  resistance  due  to  the  tow's  propellers 
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The  Towing  Manual  distinguishes  between  three  different  types  of  towed  vessels:  self- 
propelled  ships,  floating  drydocks,  and  barges.  Somewhat  different  methods  are  used  to 
compute  the  separate  components  of  resistance  for  each  type  of  vessel,  and  we  will  look  at 
each  in  turn. 

3.1.1  Hull  resistance 
3.1.1.1  Self-propelled  ships 

The  calm  water  resistance  for  self-propelled  ships  is  given  (in  pounds)  as 


rtH=1.25x 


'V 


xA 


where  RH/A  is  given  as  a  function  of  towing  speed  in  Figure  3.1  (reproduced  from  [3]),  and  A 

is  the  displacement  in  long  tons.  The  appropriate  curve  to  be  used  in  Figure  3.1  is  given  in 
Table  G-2  of  the  Towing  Manual,  which  lists  data  for  141  types  of  Naval  vessels.  A  twenty- 
five  percent  margin  is  included  to  account  for  hull  fouling  and  other  uncertainties. 

3.1.1.2  Drydocks 

For  floating  drydocks,  the  calm  water  resistance  in  pounds  is  given  by 

*H  =  /iXSx(Vy6)2 

where 

/,  =  a  coefficient  depending  on  the  degree  of  fouling  of  the  hull 
S  =  wetted  surface  area  of  the  drydock 
Vr  =  tow  speed  in  knots 

The  values  of  S  andfx  are  obtained  from  Table  3.1  (reproduced  from  [3]). 
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3.1.13  Barges 

The  method  for  barges  is  precisely  the  same  as  for  drydocks,  except  that  the  wetted  sur- 
face area  S  is  given  by 

S  =  (length)  x  (width)  +  (perimeter)  x  (draft) 


c 
o 

o> 

c 
_o 

< 

X 
DC 


Tow  Speed  (knots) 


Figure  3.1.  Hull  Resistance  Curves  for  Self -Propelled  Ships 
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Drydock  Class 

11 

S 

12 

B 

l"3 

C 

AFDB-1        Section  256' x  80' 

0.45-0.8 

23.000 

0.3 

720 

0.70 

3,800 

AFDB-4       Section  240'  x  101  * 

0.45-0.8 

20.000 

0.3 

i)00 

0.70 

4.500 

AFDM-1       Section  4%'  x  1 16' 

0.45-0.8 

50.000 

0.6 

750 

0.67 

7.000 

AFDM-3      Section  488'  x  124' 

0.45-0.8 

52,000 

0.6 

800 

0.67 

7,800 

ARD-1          Section  390' x  60' 

0.45-0.8 

20.000 

0.2 

250 

0.01 

2.000 

ARD-2          Section  486' x  71' 

0.45-0.8 

34.000 

0.2 

370 

0.61 

3.700 

ARD-1 2       Section  492' x  81' 

0.45-0.8 

40,000 

0.2 

480 

0.61 

4.400 

AH)L-1        Section  200' xM' 

0.45-0.8 

13.000 

0.4 

220 

0.70 

1.400 

AFDL-7       Section  288 '  x  04 ' 

0.45-0.8 

19,000 

0.4 

210 

0.70 

1 .500 

AFDL-35      Section  389' x  84' 

0.45-0.8 

38.000 

0.3 

780 

0.67 

1 ,900 

AFDL-47      Section  448 '  x  97 ' 

0.45-0.8 

46,000 

0.5 

420 

0.70 

2.500 

AFDL-48     Section  400 '  x  96 ' 

0.45-0.8 

48,000 

0.4 

1.350 

0.70 

2.540 

YFD-7          Section  488' x  124' 

0.45-0.8 

52.000 

0.6 

800 

0.67 

7.800 

YFD-68        Section  474' x  118' 
to  71 

0.45-0.8 

48,000 

0.6 

750 

0.67 

7.300 

Table  3.1.  Drydock  Towing  Coefficients 
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3.1.2  Wave  Resistance 
3.1.2.1  Self-propelled  ships 

For  self-propelled  ships,  the  added  resistance  due  to  waves  is  estimated  using  the 
curves  in  Figure  3.2,  reproduced  from  the  Towing  Manual,  based  on  the  hull  form.  The 
entering  argument  in  these  curves  is  the  wave  height  in  feet;  the  user  is  expected  to  use 
observed  wave  height,  or  to  infer  wave  height  based  on  wind  force  (Beaufort  number)  from 
data  such  as  that  in  Table  3.2.  The  latter  approach  does  not  lend  itself  well  to  a  digital  appli- 
cation, since  a  Beaufort  number  does  not  correspond  to  a  unique  wind  speed  or  a  unique 
wave  height. 

A  more  attractive  alternative  for  computer  implementation  is  to  associate  a  unique 
wave  height  with  a  given  wind  speed.  This  can  be  readily  accomplished  using  a  spectral 
description  of  wave  energy,  such  as  the  Pierson-Moskowitz  spectrum  (Figure  2.4). 

The  Pierson-Moskowitz  spectrum  is  an  example  of  a  general  two-parameter  sea  spec- 
trum, which  is  described  by 

5(CD)  =  (cxg2/co5)  exp(-p(£/Vwco)4) 

where 

S(co)  =  frequency  spectrum,  m  •  sec 
u)  =  wave  frequency,  radians/sec 
a  ,  p  =  nondimensional  parameters 

g  =  gravitaitonal  acceleration  constant,  m/sec 
Kw  =  wind  velocity  at  19.5  m  above  free  surface,  m/sec 

For  the  Pierson-Moskowitz  spectrum,  the  nondimensional  parameters  take  the  values 

a  =  8.1xl0"3  0  =  0.74 
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Figure  3.2.  Added  Resistance  Curves  for  Self-Propelled  Ships 


Beaufort 
No. 

Wind 
Speed 

(kts) 

Description 

#1/3 

(feet) 

Ave.  Wave 
Length 

(feet) 

Minimum 
Duration 
(Hours) 

0 

<  1 

Calm 

1 

1-3 

Light  air 

<  1 

10in 

18  min 

2 

4-6 

Light  breeze 

<1 

6.7  ft 

39min 

3 

7-10 

Gentle  breeze 

<  1 

20-27 

1.7-2.4 
(hours) 

4 

11-16 

Moderate  breeze 

2.9-4.6 

52-71 

4.8-6.6 

5 

17-21 

Fresh  breeze 

6.1-8.0 

90-111 

8.3-10.0 

6 

22-27 

Strong  breeze 

10-15 

134-188 

12-17 

7 

28-33 

Moderate  gale 

18-26 

212-285 

20-27 

8 

34-40 

Fresh  gale 

30-45 

322-444 

30-42 

9 

41-47 

Strong  gale 

50-64 

492-590 

47-57 

10 

48-55 

Storm 

71-95 

650-810 

63-81 

Table  3.2.  Beaufort  Scale  (From  U.S.  Navy  Towing  Manual) 
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Wave  heights  can  be  determined  from  this  spectrum  in  terms  of  spectral  moments,  with 
the  result  that  (Newman  [5]) 

H  =  average  wave  height  =  ^2nm0 

H  m  =  significant  1/3  waveheight  =  4  -\/mo 

where 

m0  =  zeroth  moment  =  total  energy  in  spectrum 


oo 

-/ 

0 


S((D)da 


Computing  n%  for  the  general  two-parameter  spectrum  gives 


K82J 


Selecting  H  m  as  a  more  relevant  measure  of  wave  height  than  the  average  wave  height 
when  considering  towing  dynamics,  we  have 

^,/3  =  2(v^)VoT7p 

=  K  V  w 

giving  wave  height  as  a  function  of  wind  speed  alone.  Using  English  units  gives 

Hm  =  0.0186  xVl 

with  Vw  in  knots  and  H 1/3  in  feet. 

Given  the  wave  height,  the  added  resistance  is  found  directly  by  entering  Figure  3.2 
using  the  appropriate  curve  indicated  by  Table  G-2  [3]. 
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3.1.2.2  Drydocks  and  Barges 

For  drydocks  and  barges,  an  empirical  rule  is  used  to  compute  the  added  resistance  due 
to  waves: 

RWiive  =  2.85xBxf2xV2xK 

where 

^wave  =  resistance,  lbs 

B  =  cross-sectional  area  below  the  waterline,  ft2 

/2  =  coefficient  depending  upon  bow  and  stern  configuration 

V  =  speed  of  tow,  kts 

K  =  1.2,  a  20  percent  allowance  for  rough  water  and  eddies 

Table  3.2  gives  the  values  of  B   and  f2  for  the  Navy's  floating  drydocks.  For  barges, 

B  =  (beam)  x  (draft),  f2  =  0.2  for  typical  rake-ended  barges  or  blunt  ship-ended  barges,  and 
f2  =  0.5  for  square-ended  barges. 

3.1.3  Wind  Resistance 
3.1.3.1  Self-propelled  ships 

The  wind  resistance  for  self-propelled  ships  is  given  (in  pounds)  as 

Rw  =  0.00506  xCwxATxKxVl 

where  Cw  is  a  wind  coefficient,  found  in  Table  G-2  of  the  Towing  Manual,  AT  is  the  frontal 
projected  area  of  the  ship,  also  found  in  Table  G-2,  AT  is  a  heading  coefficient,  based  on  the 
relative  wind  direction,  and  VR  is  the  relative  wind  speed  in  knots. 
The  heading  coefficient  K  is  given  by 


K  = 


1.0        0<y<20 

1.2         20<y<40 

10.4        40<y<90 
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where  y  is  the  relative  wind  direction  in  degrees,  with  zero  dead  ahead. 
The  relative  wind  speed  is  found  as 

Vj«V?  +  Vi+2VTVwcos(180-<y) 

where 

VT      =     tow  speed,  knots 
Vw     =     wind  speed,  knots 

3.1.3.2  Drydocks  and  Barges 

The  wind  resistance  for  floating  drydocks  is  given  (in  pounds)  as 

Rw  =  0.004  xCx/3x(l/w  +  VT)2 
where 

C      =     cross -sectional  area  above  waterline,  sq  ft 

/3      =     coefficient  depending  on  vessel  shape  above  waterline 

and  VT,  Vw  are  as  before.  C  and/3  are  given  by  Table  3.1. 

For  barges,  the  same  expression  is  used  as  for  drydocks,  with 

C  =  (freeboard)  x  (beam)  +  (height)DECKHOUSE  x  (width)DECKHOUSE 

and/3  =  0.60. 

3.1.4  Propeller  Resistance 

The  resistance  of  a  ship's  propeller  that  is  locked  in  place  is  given  by 

Rp  =  3.737  xApxVT2 
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where  AP  is  the  projected  area  of  the  propeller,  found  in  Table  G-2  of  the  Towing  Manual, 
and  VT  is  the  tow  speed  in  knots,  as  before.  If  instead  the  propeller  is  allowed  to  trail,  or 
freewheel,  this  resistance  is  reduced  by  half;  if  the  propeller  is  removed,  the  propeller 
resistance  is  zero. 

Floating  drydocks  and  barges  of  the  types  considered  here  do  not  have  propellers,  so 
for  them  the  propeller  resistance  is  zero. 

3.2  Towline  Resistance 

The  Towing  Manual  gives  two  methods  for  estimating  the  resistance  of  a  towing  haw- 
ser.   The  first  is  to  take  ten  percent  of  the  total  resistance  of  the  tow;  the  second  involves 
interpolating  a  table  of  data  given  in  the  Towing  Manual.    Neither  method  is  particularly 
useful:  the  first  overstates  the  resistance  in  most  cases,  while  the  second  is  difficult  to  apply. 

An  improved  estimate  can  be  made  by  analyzing  the  hydrodynamics  of  the  hawser. 
Much  of  the  analysis  here  follows  Berteaux  [6].    It  is  assumed  throughout  that  the  hawser  is 
perfectly  flexible,  that  it  does  not  stretch,  and  that  it  is  symmetrical  about  its  midpoint.  The 
geometry  of  a  towing  hawser  is  shown  in  Figure  3.3. 

Although  the  towline  is  moving  through  the  water,  we  consider  the  equivalent  problem 
of  a  static  cable  in  a  constant  horizontal  current. 

The  resistance  of  the  hawser  has  two  components,  one  due  to  normal  pressure  drag,  and 
the  second  due  to  tangential  frictional  resistance  as  shown  in  Figure  3.4.  The  normal  contri- 
bution is  given  by 

D  =  l-pCDNd(VNf 
per  unit  length  of  cable,  and  where 
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D  =  normal  drag  component 
p  =  density  of  water  (slugs/ft3) 
CDN  =  normal  drag  coefficient 
d  =  hawser  diameter  (ft) 
VN  =  normal  velocity  component 

Since  VN  =  V  sin  §  ,  the  normal  drag  component  becomes 


D  =2^CDNd  V^sin2^ 
Similarly,  the  tangential  contribution  per  unit  length  is  given  by 

F  =  2PCDTKd  (vt? 


or 


F  =  -  p  CDT  nd  V2  cos2  <|> 


where 

F  =  tangential  drag  component 
CDT  =  tangential  drag  coefficient 

and  where  VT  =  Kcost})  is  the  tangential  velocity  component. 
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Figure  3.3.  Towing  Hawser  Geometry 


Figure  3.4.  Tangential  and  Normal  Forces  on  a  Cable 


43 


The  drag  coefficients  CDT  and  CDN  both  vary  with  Reynold's  number,  RN.    For  the 
range  of  Reynold's  numbers  of  interest  in  towing,  these  coefficients  have  the  approximate 
values  (Berteaux  [6]) 


CDN~\A 


Cp,-"  0.015 


To  find  the  total  hawser  resistance,  we  must  integrate  the  horizontal  components  of  the 
normal  and  tangential  drag  along  the  length  of  the  hawser.    Since  both  D  and  F  are  func- 
tions of  the  angle  §  ,  we  must  first  determine  the  geometry  of  the  hawser. 

Considering  the  static  equilibrium  of  the  hawser  in  the  normal  and  tangential  directions 
yields  the  following  differential  equations 

dT  =  (P  sm§- F)ds 
Td§  -  (D  sin  <J)  +  P  cos  (J))  ds 
where 

T  =  cable  tension 
P  =  weight  of  cable  in  water 
(J)  =  cable  inclination  angle 
s  =  curvilinear  coordinate  along  the  cable 
If  we  neglect  the  resistance  of  the  hawser  in  determining  its  geometry,  the  equilibrium  equa- 
tions become 

dT  =  P  sin  <{>  ds 
Tdty  =  Pcostyds  (3.1) 

Eliminating  P  and  integrating  over  §  and  T  leads  to  the  result 


<|)  =  tan 
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where  T0  is  the  horizontal  component  of  the  static  tension.  This  gives  the  inclination  of  the 
hawser  as  a  function  of  its  curvilinear  distance  from  the  midpoint. 

Resolving  D  and  F  (Figure  3.4)  into  horizontal  and  vertical  components  gives 

DH  =  D  sin  <)) 

Dv  =  D  cos(|) 

FH=F  cos  (|) 

Fv  =  F  sin  <j) 

so  the  total  horizontal  resistance  of  the  hawser  per  differential  element  is 

dR  =  DH  +  FH  =  D  sin  <j>  +  F  cos  <j) 


or, 


dR  = 


+ 


1  2         2 

-  p  CDN  d  V  sin  <})  sin  (() 

-  p  Q,r  nd  V2  cos2  (|)  cos  <() 


=  -pd  V2[CDN sin3 <|>  +  ju CDr cos3 <))] 


Integrating  this  along  the  half-length  of  the  hawser  gives 

s 

R  =  \  ~pd  V2[CDN sin3 §  +  n CDT cos3 <J>] d5 


which  can  be  transformed  into 


R=-pdV2 


kPj 


J   I  COS   <j) 


-h  7t  C^-,-  cos  <J)f<i<t) 


(3.1) 


Ps 


where  again  <j>  =  tan  l[j~)  an<^  S  is  one  half  the  total  length  of  the  hawser. 


The  total  hawser  resistance  Rw  is  twice  the  value  given  by  equation  (3.1),  and  thus 
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(t  \ 

Rw  =  pdV2  -£ 

\F  J 


\^DN 


sin4*  , 

+  cos<})(sin'<f)  +  2)-2 


+  7cCZ)7sin<t>  (3.2) 


L  cos  (J) 

Neglecting  the  effects  of  the  hawser  drag  on  its  geometry  is  not  strictly  valid,  but  when 
the  depth  of  the  hawser  catenary,  H,  is  small  compared  to  the  total  span  from  end  to  end,  L, 
as  is  usually  the  case  in  ocean  towing  (see  Figure  3.4),  the  difference  between  the  actual 
geometry  and  that  of  the  assumed  static  catenary  is  small. 

For  a  hawser  moving  through  the  water  at  a  constant  speed,  as  we  have  assumed 
throughout,  equilibrium  requires  that  the  pull  of  the  tug  balance  the  resistance  of  the  tow  and 
the  drag  of  the  hawser.  We  have  already  estimated  the  resistance  of  the  tow,  and  equation 
(3.2)  gives  an  estimate  for  the  hawser  resistance.  However,  equation  (3.2)  requires  the  mean 
tension,  TQ,  as  an  argument,  which  is  itself  a  function  of  the  hawser  resistance.  This  suggests 
an  iterative  scheme  for  finding  the  equilibrium  configuration.  For  a  given  length  of  hawser, 
equation  (3.2)  is  used  to  compute  the  hawser  resistance  at  the  given  speed,  using  the  tow 
resistance  alone  as  a  first  estimate  of  T0.  The  resulting  hawser  drag  is  added  to  the  tow 
resistance  to  give  a  new  estimate  of  the  mean  tension,  which  is  then  used  to  recompute  the 
hawser  resistance.  This  process  is  repeated  until  convergence  is  reached;  that  is,  when 
successive  estimates  of  hawser  resistance  differ  by  less  than  a  predetermined  amount. 

Tables  3.3,  3.4,  and  3.5  give  representative  samples  of  hawser  resistance  found  by  this 
method  for  several  combinations  of  tow  resistance  and  hawser  scope  at  tow  speeds  of  three, 
six,  and  nine  knots. 

We  can  see  from  these  results  that  at  higher  values  of  ship  resistance,  the  hawser  drag 
is  constant.  This  is  because  the  hawser  catenary  has  reached  the  limit  of  its  ability  to  adjust 
its  geometry,  and  thus  the  drag  is  due  primarily  to  the  tangential  drag  component. 
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V  =  3kts 
Ship  Drag 

Hawser  Scope  (ft) 

1000 

1200 

1400           1600           1800 

2000 

2200 

10,000 

299 

415 

563 

744 

957 

1199 

1468 

20,000 

234 

290 

352 

423 

505 

599 

707 

50,000 

226 

271 

317 

364 

411 

460 

509 

100.000 

226 

271 

316 

361 

406 

452 

497 

Table  3.3.  Hawser  Resistance  (lbs)  at  3  knots 


V  =  6kts 
Ship  Drag 

Hawser  Scope  (ft) 

1000 

1200 

1400           1600           1800 

2000 

2200 

10,000 

1137 

1518 

1967 

2477 

3039 

3642 

4279 

20,000 

934 

1150 

1388 

1652 

1946 

2274 

2637 

50,000 

904 

1086 

1269 

1455 

1643 

1835 

2031 

100,000 

903 

1083 

1264 

1445 

1626 

1807 

1989 

Table  3.4.  Hawser  Resistance  (lbs)  at  6  knots 


V  =  9kts 
Ship  Drag 

Hawser  Scope  (ft) 

1000 

1200 

1400           1600           1800 

2000 

2200 

10,000 

2411 

3108 

3882 

4720 

5609 

6538 

7497 

20,000 

2090 

2559 

3062 

3605 

4192 

4823 

5498 

50,000 

2033 

2442 

2855 

3271 

3692 

4119 

4554 

100,000 

2031 

2438 

2844 

3251 

3658 

4066 

4475 

Table  3.5.  Hawser  Resistance  (lbs)  at  9  knots 
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Chapter  4 
Program  Description 

In  this  chapter  I  describe  an  interactive  computer  program,  TOWCALC,  which  imple- 
ments the  theory  and  methods  presented  in  Chapters  2  and  3.  We  begin  with  a  brief  over- 
view, then  proceed  to  a  more  detailed  examination.  Procedures  for  installing  TOWCALC 
are  given  in  Appendix  C;  Appendix  D  gives  a  complete  program  listing. 


4.1  Overview 

4.1.1  Purpose 

The  goal  of  this  program  is  to  provide  tow  planners  and  tug  operators  with  a  computa- 
tional tool  to  aid  in  their  decision  making  with  regard  to  ocean  towing.  Since  many  of  the 
intended  users  are  only  casual  computer  users,  it  is  important  the  program  be  as  transparent 
as  possible.  By  this  I  mean  the  user  should  not  be  required  to  be  especially  computer  literate, 
beyond  a  basic  understanding  of  how  to  use  an  applications  program.  This  requires  the  inter- 
face between  the  program  and  the  user  be  as  "friendly"  as  possible,  which  translates  to  a  lib- 
eral use  of  menus  and  prompts,  and  extensive  error  checking  of  input. 

4.1.2  Intended  Users 

The  intended  users  of  this  program  are  primarily  U.S.  Navy  personnel  involved  in  the 
planning  and  execution  of  open  ocean  tows.  This  includes  both  staff  personnel  and  ship- 
board operators.  The  most  likely  staffs  to  use  the  program  would  be  Combat  Support  Squad- 
ron staffs,  Military  Sealift  Command  (MSC)  personnel,  and  the  office  of  the  U.S.  Navy 
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Supervisor  of  Salvage  (SUPSALV).  Afloat  personnel  would  include  the  Commanding 
Officer  and  wardroom  (other  officers)  of  U.S.  Navy  towing  salvage  vessels,  and  the  Masters 
and  mates  of  MSC  ocean  going  tugs. 

4.1.3  Hardware  Requirements 

TOWCALC  was  developed  for  use  on  IBM  and  compatible  micro-computers  running 
under  IBM  PC-DOS™  or  Microsoft  MS-DOS™  versions  3.2  and  higher,  equipped  with  a 
hard  disk  drive,  a  graphics  card,  and  a  graphics  monitor.  Although  it  will  work  with  both 
monochrome  and  color  monitors,  color  is  not  used.  A  printer  is  also  required. 

Supported  graphics  devices  include  the  IBM  Color  Graphics  Array  (CGA),  Enhanced 
Graphics  Array  (EGA),  and  Hercules  monochrome  graphics.  Better  results  are  obtained  on 
the  higher  resolution  EGA  and  Hercules  devices. 

4.1.4  Programming  Environment 

TOWCALC  is  written  in  the  C  programming  language,  using  the  Microsoft  Optimiz- 
ing C  Compiler™  Version  5.0;  graphics  routines  use  the  Halo  '88™  graphics  kernel.  C  was 
chosen  because  it  lends  itself  to  structured  programming,  and  because  it  provides  complete 
control  over  all  aspects  of  the  computer.  This  is  particularly  important  in  developing  a 
"friendly"  user  interface. 

Several  of  the  C  functions  used  in  TOWCALC  are  from  a  library  written  by  Doerry 
[7];  the  plotting  functions  are  modified  versions  of  those  in  a  library  by  Milgram  [8]. 

4.1.5  User  Interface 

The  user  interface  is  designed  to  make  this  program  as  simple  to  use  as  possible. 
Menus  and  prompts  are  used  extensively,  eliminating  the  need  for  the  user  to  learn  a  com- 
mand set.  Some  of  the  important  elements  of  this  interface  are  described  below. 
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The  basic  display  is  a  reverse  video  window  in  the  center  of  the  screen.   Program 
options  are  selected  from  popup  menus;  cursor  keys  are  used  to  move  a  highlighted  bar  from 
choice  to  choice,  or  the  number  of  the  selection  may  be  pressed.  Pressing  the  escape  key 
generally  moves  up  one  level  in  the  overall  menu  structure. 

The  user  enters  data  by  typing  information  on  the  keyboard,  which  is  written  to  the 
screen  in  the  appropriate  location.   Editing  of  data  is  accomplished  by  pressing  the  appropri- 
ate function  key  corresponding  to  the  item,  listed  in  a  menu  usually  shown  at  the  bottom  of 
the  display. 

Error  and  warning  messages  are  displayed  in  a  popup  window  which  appears  in  the 
center  of  the  screen;  the  user  presses  any  key  and  the  message  disappears,  restoring  the  dis- 
play beneath  it.  The  action  taken  by  the  program  in  response  to  an  error  or  a  warning 
depends  on  the  context  of  the  situation. 

When  prompted  to  respond  "yes"  or  "no",  pressing  the  return  or  enter  key  (Q)  gener- 
ates a  default  response,  usually  "yes". 

The  interface  functions  (windows,  popup  menus,  screen  display)  achieve  a  nearly 
instantaneous  response  by  writing  directly  to  video  RAM  (random  access  memory).  They 
are  based  on  a  set  of  functions  by  Schildt  [9). 

4.1.6  Options 

After  an  initial  title  screen  (Figure  4.1)  a  popup  menu  appears  (Figure  4.2)  giving  the 
five  main  options  in  this  program: 
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1 )  Select  Tug 

2)  Select  Tow 

3)  Estimate  Dynamic  Tension 

4)  Print  Report 

5)  QUIT 

Figure  4.3  shows  this  menu  structure  schematically.  A  brief  description  of  each  option 
follows;  a  more  detailed  discussion  will  be  given  in  later  sections. 

Select  Tug.  The  user  selects  one  of  four  U.S.  Navy  tugs,  sets  the  towline,  or  hawser, 
length,  and  sets  the  size  and  length  of  the  chain  pendant  which  connects  the  hawser  to  the 
tow. 

Select  Tow.  Here  the  user  enters  the  characteristics  of  the  towed  vessel,  the  desired 
towing  speed,  and  environmental  parameters.  The  resistance  of  the  tow  and  of  the  towline 
are  estimated,  using  the  methods  of  Chapter  3,  and  the  ability  of  the  chosen  tug  class  to  tow 
the  vessel  at  the  desired  speed  is  evaluated.  Three  different  types  of  vessels  are  considered: 
self-propelled  ships,  floating  drydocks,  and  barges.  Submarines  are  not  included. 

Estimate  Dynamic  Tension.  In  this  option,  the  results  of  Chapter  2  are  implemented 
to  predict  the  extreme  towline  tension.  The  user  may  elect  to  use  the  estimated  mean  tension 
from  the  previous  option,  or  to  enter  the  actual  mean  tension  as  measured  at  sea.  The  user 
may  choose  to  plot  (on  screen)  the  standard  tension  curve,  to  compute  and  plot  the  effects  of 
changing  tow  speed,  or  to  compute  and  plot  the  effects  of  changing  towline  length.  These 
last  two  options  give  the  user  an  immediate  look  at  how  tow  speed  and  towline  length  affect 
extreme  tension. 

Print  Report.  This  option  produces  a  file  containing  the  most  recent  data  and  results. 
If  the  user  so  chooses,  a  printout  is  made  of  this  file. 

QUIT.  This  option  terminates  program  execution  and  returns  control  to  the  operating 
system. 
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SUPSALV 

TOWING   CALCULATIONS 

A  COMPUTATIONAL  TOOL  FOR 
OPEN  OCEAN  TOWING 


pre5s  anv  key  to  continue 


Figure  4.1.  TOWCALC  Title  Screen 


PROGRAM  OPTIONS 


1)  Select  Tug- 

2)  Select  Tow 

3)  Estimate  Dynamic  Tension 

4)  Print  Report 

5)  QUIT 


Figure  4.2.  Main  Program  Options 


52 


PROGRAM    OPTIONS 

1 

1 

1 

Select 
Tug 

Estimate 
Dynamic 
Tension 

QUIT 

Select 
Tow 

Print 
Report 

Figure  4.3.  Program  Options  Menu  Structure 
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A  session  of  TOWCALC  generally  proceeds  sequentially  from  Select  Tug  through 
Print  Report.  At  startup,  the  only  valid  options  are  Select  Tug,  and  QUIT;  choosing  any 
other  option  will  generate  an  error  message,  requesting  the  user  to  select  a  tug.  Once  a  tug  is 
selected,  Select  Tug,  Select  Tow,  and  QUIT  are  valid  options;  choosing  Estimate  Dynamic 
Tension  or  Print  Report  prompt  the  user  to  select  a  tow.  Print  Report  may  only  be 
selected  once  the  previous  options  have  been  completed. 

The  following  sections  discuss  each  option  in  more  detail. 

4.2  Tug  Selection 

When  this  option  is  chosen,  a  second  menu  is  displayed  (Figure  4.4),  giving  the  user 
three  choices: 

1 )  Enter  new  data 

2)  Edit  existing  data 

3)  Retrieve  data  from  file 

At  the  beginning  of  a  session,  only  options  1)  and  3)  are  allowed;  choosing  2)  generates 
an  error  message.  Choosing  option  3)  will  also  produce  an  error  if  no  tug  data  files  have 
been  previously  saved. 

Enter  new  data.  Here,  the  user  selects  one  of  four  Navy  tug  classes,  chooses  the  tow- 
line  length,  and  sets  the  size  and  length  of  the  chain  pendant.  A  popup  menu  is  used  to  select 
the  tug  class  (Figure  4.5),  and  the  remaining  data  is  typed  directly  (Figure  4.6). 

The  four  tug  classes  are  the  ARS  38  class  salvage  ship,  the  ARS  50  class  salvage  ship, 
the  ATS  1  class  salvage  ship,  and  the  T-ATF  166  class  fleet  tug.  Table  3.1  lists  some  of  the 
principal  characteristics  of  each  ship  class. 

Once  a  tug  class  is  chosen,  TOWCALC  automatically  assigns  the  hawser  diameter,  as 
this  is  a  characteristic  of  each  class  (see  Table  4.1). 
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TUG  DATA 


Options 


1)  Enter  new  data 

2)  Edit  existing  data 

3)  Retrieve  data  file 


Figure  4.4.  Tug  Options 
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Hawser 
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diameter : 

T-ATF  166 
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ft 

Chain  pendant 

size: 

in 

scope :  ft 

Please  enter  data. 


Figure  4.5.  Selecting  Tug  Class 
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As  data  is  entered,  it  is  checked  for  errors  and  consistency.  Invalid  entries  generate  an 
error  message  prompting  the  user  to  try'again.  Negative  lengths  and  sizes  are  disallowed. 
The  towline  length  is  compared  to  the  maximum  length  of  hawser  available  on  the  chosen 
tug — lengths  exceeding  this  value  are  not  allowed.  Upper  bounds  on  chain  pendant  size  and 
length  are  arbitrarily  set  at  20  inches  and  500  feet. 


Characteristics 

ARS38 

ARS50 

ATS  1 

T-ATF  166 

Length  (feet) 

213.5 

255.0 

282.7 

225.0 

Beam  (feet) 

43.0 

52.0 

50.0 

42.0 

Draft  (feet) 

16.0 

17.5 

18.0 

15.0 

Displacement  (LT) 

1900 

3282 

3117 

2260 

Cruising  Range 
(nm  /  kts) 

9400/12.5 

8000/8.0 

10000/13.0 

10000/13.0 

Maximum  Sustained 
Speed  (kts) 

14.5 

15.0 

16.0 

15.0 

Shaft  Horsepower 

3000 

4200 

6000 

7200 

Table  4.1.  Towing  Vessel  Characteristics 

After  the  data  is  entered,  the  user  has  the  option  to  edit  his  or  her  choices.  The  program 
asks  if  all  data  is  correct:  typing  "yes"  or  pressing  £  confirms  this  is  so  (Figure  4.6).  If  not, 
typing  "no"  prints  a  menu  at  the  bottom  of  the  display  (Figure  4.7),  showing  the  function  key 
that  must  be  pressed  to  change  a  given  item.  The  choices  are: 

£T)  Tug  class 

(TO)  Hawser  length 

■E3)  Chain  pendant  size 

JJ4)  Chain  pendant  length 
Again,  hawser  size  is  set  automatically.  Pressing  the  "insert"  key  ( Jm)  quits  editing. 
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TOG  DATA 

Class:  ARS  50 

Hawser 

diameter : 

2  .25 

in 

scope : 

1500 

ft 

Chain  pendant 

size: 

2  .25 

in 

scope : 

90 

ft 

Is  all  data  correct?  (yes 

I 

/no)  : 

Figure  4.6.  Entering  Tug  Data 


TUG  DATA 


Class:  ARS  50 

Hawser 

diameter:    2.25  in 

scope:       1500  ft 

Chain  pendant : 

size:        2.25  in 

scope:         90  ft 

Fl  Class  F2  Wire  scope 
F3  Chain  size  F4  Chain  scope 


Press  INS  to  continue 


Figure  4.7.  Editing  Tug  Data 
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Once  all  data  is  correct,  the  user  is  given  the  option  to  save  the  data  to  a  file 
(Figure  4.8).  Typing  "yes"  or  pressing  £  generates  a  prompt  for  a  file  name  (eight  charac- 
ters maximum),  and  the  data  is  then  stored  in  a  file  on  the  computer's  hard  disk  with  the  file 
extension  ".TUG"  (Figure  4.9).  An  error  message  is  displayed  if  invalid  characters  are 
included  in  the  file  name  (characters  not  allowed  by  DOS),  or  if  the  file  could  not  be  opened 
for  some  reason.  The  program  then  returns  to  the  main  menu,  with  Select  Tow  highlighted. 

Edit  existing  data.  Once  a  set  of  tug  data  have  been  entered  during  a  given  session, 
this  option  may  be  used  to  modify  that  data.  The  tug  data  summary  is  immediately  displayed 
(Figure  4.6),  with  the  prompt  to  confirm  that  data  is  correct.  As  before,  typing  "no"  allows 
editing;  typing  "yes"  or  pressing  £  displays  the  prompt  to  save  to  file. 

Retrieve  data  from  file.  Choosing  this  option  prompts  the  user  to  enter  a  tug  file 
name  (Figure  4.10).  If  a  tug  data  file  of  this  name  has  been  saved  on  the  hard  disk,  the  pro- 
gram will  retrieve  the  data  stored  there.  If  the  file  does  not  exist  or  can't  be  opened  for  some 
other  reason,  or  if  the  file  is  not  a  tug  file,  an  error  message  is  displayed.  Typing  "Q"  at  the 
file  name  prompt  will  return  the  user  to  the  tug  options  menu.  Once  data  is  retrieved,  this 
option  behaves  exactly  as  the  Edit  Existing  data  option 

In  all  cases,  completion  of  Select  Tug  returns  the  user  to  the  PROGRAM  OPTIONS 
menu,  with  Select  Tow  highlighted. 

Figure  4.1 1  shows  the  organization  of  this  program  module. 
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|TUG  DATA 

1 

Class:  ARS  5  0 

Hawser 

diameter:    2.25  in 

scope:       1500  ft 

Chain  pendant : 

size:       2 .25  in 

scope:         90  ft 

Save  data  to  file?  (yes /no) 


v_ 


Figure  4.8.  Save  Tug  File  Prompt 
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2 
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in 
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2 

25 
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Enter  tug 

file 

name : 

ARS50 


Figure  4.9.  Entering  Tug  File  Name 
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TUG  DATA 


Retrieve  File 


Enter  name  of  tug  file 
to  retrieve  (8  char  ma*) : 


Type  ' Q'  to  quit 


Figure  4.10.  Retrieve  Tug  Data  File 
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Figure  4.11.  Program  Flow:  Select  Tug  Module 
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4.3  Tow  Selection 

This  option  accomplishes  three  separate  functions:  entering  data,  estimating  tow  and 
hawser  resistance,  and  estimating  tug  capability.  In  this  section  we  will  look  at  each  of  the 
three  functions  in  turn,  focusing  on  the  differences  dictated  by  the  type  of  tow  vessel  chosen. 

As  in  the  Select  Tug  option,  when  Select  Tow  is  chosen  a  second  menu  is  displayed, 
giving  the  same  three  choices  as  before  (Figure  4.12): 

1 )  Enter  new  data 

2)  Edit  existing  data 

3)  Retrieve  data  from  file 

The  same  comments  regarding  error  messages  apply  here,  except  that  option  3)  generates  an 
error  if  no  tow  files  have  been  saved. 

With  each  of  these  options,  a  menu  is  displayed  to  select  the  type  of  vessel  to  be  towed 
(Figure  4.13): 

1)  Self-propelled  ship 

2)  Floating  drydock 

3)  Barge 

These  choices  correspond  to  the  three  methods  for  estimating  towing  resistance  discussed  in 
Chapter  3. 

43.1  Entering  New  Data 

The  process  of  entering  data  is  similar  for  all  three  types  of  vessel,  but  the  details  differ 
because  the  data  required  to  estimate  resistance  is  different  for  each.  Figure  4.14  shows  this 
process  schematically  for  self-propelled  ships. 
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Retrieve  data  file 

Figure  4.12.  Tow  Data  Options 
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2)  Floating  drydocks 
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Figure  4.13.  Select  Tow  Ship  Type 
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Figure  4.14.  Program  Flow:  Enter  New  Data  for  Ships 
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43.1.1  Self-Propelled  Ships 

Entering  Tow  Data.  When  this  ship  type  is  chosen,  the  user  is  prompted  to  enter  the 
following  data  (Figure  4.15): 

•  Hull  number.  This  is  the  standard  Naval  designation  for  ships.  For  example, 
BB  63  refers  to  a  battleship  with  hull  number  63;  CVN  65  refers  to  a  nuclear- 
powered  aircraft  carrier  with  hull  number  65.  Entry  may  be  made  in  either  upper 
or  lower  case  characters;  TOWCALC  converts  all  to  upper  case. 

•  Full  load  displacement.  This  is  the  ship's  weight,  expressed  in  long  tons  of  2240 
pounds. 

•  Tow  speed.  The  desired  towing  speed  in  knots. 

•  Wind  speed.  "^Tie  maximum  expected  sustained  wind  speed  in  knots. 

•  Relative  wind  direction.  The  direction  from  which  the  wind  is  blowing  with 
respect  to  the  ship's  heading,  in  degrees.  Wind  blowing  from  dead  ahead  has  a 
relative  direction  of  zero  degrees;  wind  blowing  from  dead  astern,  180  degrees. 

•  Propeller  status.  A  popup  menu  gives  the  choices  "Locked",  "Trailing",  or  "Re- 
moved" (Figure  4.16). 

As  in  Select  Tug,  data  is  checked  for  errors  and  consistency.  Invalid  entries  generate 
an  error  message  prompting  the  user  to  try  again.  Errors  will  be  given  for: 

•  numeral  as  first  character  in  hull  number, 

•  negative  displacement, 

•  negative  tow  or  wind  speed, 

•  displacement  greater  than  100,000  long  tons, 

•  tow  speed  greater  than  12.0  knots, 

•  wind  speed  greater  than  48.0  knots, 

•  relative  wind  direction  greater  than  360  degrees,  or  between  70  and  110  degrees. 
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The  limit  on  displacement  is  enforced  because  the  data  base  of  ship  types  has  no  infor- 
mation for  larger  ships.  Similarly,  48.0  knots  wind  speed  is  the  upper  limit  for  the  added 
resistance  curves.  The  extreme  tension  data  base  does  not  cover  beam  seas,  associated  with 
wind  directions  between  70  and  110  degrees  relative,  primarily  because  the  motions  of  the 
tug  under  such  conditions,  particularly  roll,  are  more  restrictive  than  towline  tensions.  Tow- 
ing speed  is  limited  to  12.0  knots  partly  due  to  safety  considerations,  and  partly  due  to  the 
power  limitations  of  Navy  towing  vessels. 

Warning  messages  will  be  given  for  the  following  conditions: 

•  displacement  less  than  350  long  tons,  or  greater  than  91 ,000  long  tons  but  less  than 
or  equal  to  100,000  long  tons, 

•  tow  speed  greater  than  10.0  knots  but  less  than  or  equal  to  12.0  knots, 

•  relative  wind  direction  less  than  zero  or  between  1 80  and  360  degrees. 
Displacements  in  the  warning  range  are  not  covered  specifically  by  the  Towing  Manual 

data  base,  but  reasonable  estimates  may  be  made  using  data  for  the  ship  listed  that  is  nearest 
in  size.  Tow  speeds  greater  than  10.0  knots  are  unusual,  but  may  occur  under  special  circum- 
stances, so  TOWCALC  accepts  speeds  in  this  range.  Relative  wind  directions  in  the  range 
given  here  are  converted  to  the  corresponding  angle  between  zero  and  180  degrees. 

Editing.  Once  the  data  is  entered,  TOWCALC  prompts  the  user  to  verify  that  all  is 
correct.  As  before,  if  all  data  is  correct,  typing  "yes"  or  pressing  £  confirms  that  this  is  so. 
If  not,  typing  "no"  prints  a  menu  at  the  bottom  of  the  display,  with  the  choices  (Figure  4.17): 

£D  Hull  number 

JD  Full  load  displacement 

Jt)  Tow  speed 

(F4)  Maximum  expected  wind  speed 

M)  Relative  wind  direction 
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@  Propeller  status 
To  quit  editing,  press  Ins,  . 

Selecting  Ship  Class.  In  order  to  make  resistance  predictions  using  the  method  of 
Chapter  3,  TOWCALC  must  make  use  of  the  data  provided  by  Table  G-2  of  the  Towing 
Manual.  This  data  is  stored  in  a  file  on  the  computer,  but  the  user  must  specify  which  ship 
class  to  use.  TOWCALC  displays  a  portion  of  this  data  file  on  the  screen,  and  the  cursor 


keys  (j^,  £,,  £,,  A,  .PgUp J.  .PgDn],  .Home  j.  End,  )  are  used  to  move  the  highlighted  bar 
from  choice  to  choice.  Pressing  £  makes  the  selection.  Initially,  TOWCALC  searches  the 
data  file  for  the  closest  match  to  the  hull  number  the  user  entered,  and  displays  that  ship  type 
at  the  top  of  the  screen  (Figure  4.18).  If  it  cannot  find  an  exact  match,  it  looks  for  a  matching 
hull  type,  such  as  "DDG"  or  "CVN",  and  displays  the  first  ship  of  that  type  at  the  top  of  the 
screen.  If  no  match  is  found,  the  first  ship  type  in  the  list  is  displayed. 

Along  with  the  hull  number  of  the  ship  class,  TOWCALC  displays  a  description,  such 
as  "GUIDED  MISSILE  DESTROYER",  the  displacement  in  long  tons,  the  frontal  projected 
windage  area,  and  the  projected  propeller  area.  These  are  to  help  the  user  make  the  best 
selection  possible. 

After  the  user  selects  a  ship  class,  TOWCALC  displays  the  following  data  and 
prompts  the  user  for  verification: 

•  hull  number  entered  by  the  user, 

•  ship  class  selected, 

•  actual  displacement, 

•  tabulated  displacement, 

•  frontal  projected  windage  area, 

•  wind  coefficient, 

•  propeller  area, 
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Figure  4.15.  Entering  Tow  Data  for  Self-Propelled  Ships 
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Figure  4.16.  Propeller  Status  Menu 
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[TOW  DATA 
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Hull  no:  DDG  51 
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Figure  4.17.  Editing  Tow  Data  for  Ships 
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Figure  4.18.  Selecting  Ship  Class 
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•  curve  number  for  hull  resistance, 

•  curve  number  for  added  resistance  due  to  waves. 

If  data  needs  editing,  an  edit  menu  is  displayed,  as  before,  with  the  choices  (Figure  4.19): 
FJJ  Actual  displacement 
F2  Frontal  windage  area 
H)  Wind  coefficient 
!F4j  Propeller  area 
The  resistance  curve  numbers  are  not  subject  to  editing,  as  these  are  unique  to  the  ship 
class  selected.  Pressing  |n£  ends  editing. 

Saving  to  File.  The  steps  to  save  tow  data  to  a  file  are  the  same  as  in  Select  Tug, 
except  data  is  stored  in  a  file  with  the  extension  ".TOW". 


\ 

8500  tons 

1 

SHIP  DATA 

Hull  number:  DDG  51 
Class:  DDG  51-53 
Displacement 
Actual : 

Tabulated:        8300  tons 
Frontal  area:           6900  sq  ft 
Wind  coefficient:      0.7  0 
Propeller  area:          254  sq  ft 
Hull  resistance  curve:     4 
Wave  resxstance  curve:     1 

Fl  Disp  F2  Front  F3  Wind  F4  Prop 

J 

Figure  4.19.  Editing  Ship  Data 
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4.3.1.2  Floating  Drydocks 

Entering  Tow  Data.  When  this  ship  type  is  chosen,  a  popup  menu  is  displayed  show- 
ing the  fourteen  drydock  types  listed  in  Table  3.1  (Figure  4.20).  When  the  user  makes  a 
choice,  TOWCALC  reads  the  data  for  that  drydock  type  from  a  file.  Then  the  user  is 
prompted  to  enter  a  value  indicating  the  hull  condition  of  the  drydock:  this  is  a  scale  from 
zero  to  ten,  with  zero  representing  a  clean  bottom  and  ten  representing  a  bottom  heavily 
fouled  with  marine  growth  (Figure  4.21).  The  scale  value  is  used  to  compute  the  value  of  the 
coefficient  fx  in  Table  3.1.  Next,  TOWCALC  asks  for  the  tow  speed,  wind  speed,  and  rela- 
tive wind  direction  (Figure  4.22). 

Data  is  checked  for  errors  and  consistency,  as  always.  Invalid  entries  generate  error 
messages;  the  same  criteria  for  ship  tow  data  apply  here. 

Estimating  Displacement.  The  Towing  Manual  does  not  provide  the  displacement  of 
drydocks  in  Table  3.1.  This  information  is  needed  later,  though,  when  matching  the  drydock 
against  the  ships  in  the  extreme  tension  data  base.  TOWCALC  estimates  the  displacement, 
A,  as  follows 

A  =  Cb  x  Length  x  Beam  x  Draft 

where 

C  = =  block  coefficient 

b     LxBxT 

Drydock  length  and  beam  are  found  in  Table  3.1,  but  the  draft  must  be  estimated  using 

B 

Draft  =  - — 

Cx  x  Beam 

where 

D 

C  = =  Maximum  section  coefficient 

*     Beam  x  Draft 


71 


and  B  is  the  underwater  cross-sectional  area,  given  in  Table  3.1.  The  block  coefficient,  Ch, 

and  the  maximum  section  coefficient,  Cx,  are  approximated  as 

C,  =  0.8 
Cx  =  0.9 

Editing.  Once  the  data  is  entered,  TOWCALC  displays  a  summary  and  prompts  the 
user  to  verify  that  all  is  correct.  If  it  is  not,  typing  "no"  prints  a  menu  at  the  bottom  of  the 
display,  with  the  choices  (Figure  4.23): 
|T)  Drydock  type 
^2)  Hull  condition 
|3)  Tow  speed 
®  Wind  speed 
JF5)  Relative  wind  direction 
Pressing  |T)  displays  the  popup  menu  of  drydocks  as  before;  selecting  a  different  dry- 
dock  causes  TOWCALC  to  read  a  new  set  of  coefficients  from  file.  Pressing  ln£  quits  edit- 
ing, as  always. 

Saving  to  File.  The  steps  here  are  identical  with  those  for  self-propelled  ships. 
Figure  4.24  shows  schematically  the  process  for  entering  drydock  data. 
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SELECT  DRYDOCK 

AFDB-1 

Section 

256' 

X 

80' 

AFDB-4 

Section 

240' 

X 

101' 

AFDM-1 

3-Piece 

496' 

X 

116' 

AFDM-3 

3-Piece 

488' 

X 

124' 

ARD-1 

1-Pxece 

390' 

X 

60' 

ARD-2 

1-Piece 

486' 

X 

71' 

ARD-12 

1-Piece 

492' 

X 

81' 

AFDL-1 

1-Piece 

200' 

X 

64' 

AFDL-7 

1-Piece 

288' 

X 

64' 

AFDL-35 

1-Piece 

389' 

X 

84' 

AFDL-47 

1-Piece 

448' 

X 

97' 

AFDL-48 

1-Piece 

400' 

X 

96' 

YFD-7 

3-Piece 

488' 

X 

124' 

YFD-68  to 

71 

3-Piece 

474' 

X 

118' 

Figure  4.20.  Select  Drydock  Class 
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HULL  CONDITION 


Clean  hull  (no  growth)  -  0 
Average  hull  (moderate  growth)  -  5 
Fouled  hull  (heavy  growth)  -  10 
Enter  hull  condition: 

Please  enter  data. 


J 


Figure  4.21.  Entering  Hull  Condition 
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^N 


| TOW  DATA 

I 

Tow  speed: 

Max  expected  wind  speed: 

Relative  wind  direction: 

Please  enter  data. 


Jets 

kts 
deg 


Figure  4.22.  Entering  Dry  dock  Tow  Data 




DATA  SUMMARY 

1 

Name:  AFDB-1 

Hull  condition: 

5 

0 

Tow  speed : 

5 

0 

kts 

Max  expected  wind  speed 

25 

0 

kts 

Relative  wind  direction 

0 

0 

deg 

PI  Name  F2  Hull  FC 
P4  Wind  P5  Re. 

1      —  Press  INS  to  cont. 

i   Tow 

L 

.nue  — 

i 

Figure  4.23.  Editing  Dry  dock  Tow  Data 
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Select   Tow 


New 


Ship 


Edit 


Continue  r— ' 


Save 


Continue 


Use    Best 
Speed 


Edit 


Dock 


Select    Drydock   Type; 
Retrieve    Data 


Enter   Hull    Condition, 
Dock   Tow    Data 


Estimate    Displacement 


Display   Summary 


File 


Barge 


Compute    Resistance 


Display    Results 


Evaluate   Tug 


Use    Orig, 
Speed 


Show 
Graph 


PROGRAM 
OPTIONS 


Figure  4.24.  Program  Flow:  Enter  New  Data  for  Drydocks 
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43. 1J  Barges 

Figure  4.25  shows  schematically  the  process  of  entering  barge  data. 
Entering  Barge  Dimensions.  When  this  ship  type  is  chosen,  the  user  is  prompted  for 
the  following  data  (Figure  4.26): 

•  Barge  name.  This  is  generally  the  Naval  hull  designation,  such  as  "YFN  89"  or 
"YC1170". 

•  Hull  length.  The  length  of  the  barge  at  the  waterline,  in  feet. 

•  Beam.  The  beam  of  the  barge  at  the  waterline,  in  feet. 

•  Hull  depth.  The  depth  of  the  barge  from  the  keel  to  the  main  deck,  in  feet. 

•  Draft.  The  draft  of  the  barge,  in  feet. 

•  Deckhouse  length.  The  length,  in  feet,  of  the  barge's  deckhouse,  if  one  is  present, 
or  of  any  deck  cargo,  if  not. 

•  Deckhouse  width.  The  width  of  the  deckhouse  or  deck  cargo,  in  feet. 

•  Deckhouse  height.  The  height  of  the  deckhouse  or  deck  cargo,  in  feet. 

•  End  shape.  A  popup  menu  is  displayed  giving  the  choices  "Rake  ended",  "Ship 
ended",  and  "Square  ended"  to  indicate  the  shape  of  the  bow  and  stem  of  the  barge 
(Figure  4.27). 

As  always,  data  is  checked  for  errors  and  consistency.  Invalid  entries  generate  an  error 
message  prompting  the  user  to  try  again.  Errors  will  be  given  for: 

•  numeral  as  first  character  in  hull  number, 

•  negative  lengths, 

•  hull  length  greater  than  1000  feet, 

•  beam  greater  than  500  feet, 

•  hull  depth  greater  than  100  feet, 

•  draft  deeper  than  hull  depth, 

•  deckhouse  length  greater  than  hull  length, 
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Save 
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Figure  4.25.  Program  Flow:  Entering  New  Data  for  Barges 
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1 

BARGE 

DATA 

Name  or  hull  no 

Hull  dimensions 

Length : 

ft 

Beam : 

ft 

Depth : 

ft 

Draft : 

ft 

Deckhouse  dimensions 

Length : 

ft 

Width : 

ft 

Height : 

ft 

End  shape : 

Figure  4.26.  Entering  Barge  Dimensions 


BARGE 

DATA 

Name  or  hull 

no 

YC 

1711 

Hull  dimensions 

Length : 

150.0 

ft 

Beam : 

50.0 

ft 

Depth : 

12.0 

ft 

Draft : 

8.0 

ft 

Deckhouse 

din 

ensions 

Length : 

50.0 

ft 

Width : 

30.0 

ft 

Height : 
End  shape 

10.0 

ft 

Rake 

ended 

Ship 

ended 

Square  ended 

Figure  4.27.  Barge  End  Shape  Menu 
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•  deckhouse  width  greater  than  beam, 

•  deckhouse  height  greater  than  100  feet. 

The  upper  bounds  on  dimensions  are  somewhat  arbitrary,  as  barges  are  rarely  as  large  as  the 
maximum  dimensions  specified  here.  The  intent  is  to  catch  typing  mistakes  by  the  user. 
Editing  Barge  Dimensions.  Once  the  barge  dimensions  are  entered,  TOWCALC 
prompts  the  user  for  verification;  typing  "no"  at  the  prompt  prints  the  editing  function  key 
choices  along  the  left  side  of  the  display,  corresponding  to  (Figure  4.28): 

!Flj  Barge  name 

!§)  Hull  length 

!F3)  Beam 

@)  Hull  depth 

(H)  Draft 

@  Deckhouse  length 

(F7)  Deckhouse  width 

(H)  Deckhouse  height 

(F9)  End  shape 
Any  changes  made  are  checked  for  errors  and  consistency.  Pressing  In?  quits  editing. 

Entering  Tow  Data.  After  the  dimensions  have  been  entered  and  confirmed,  TOW- 
CALC prompts  for  the  same  tow  data  requested  for  drydocks:  hull  condition,  tow  speed, 
wind  speed,  and  relative  wind  direction.  The  same  error  checks  are  made  here  as  for  drydock 
tow  data. 

Editing  Tow  Data.  Once  all  data  have  been  entered,  the  usual  prompt  appears  for  edit- 
ing. The  procedure  is  the  same — the  menu  is  printed  at  the  bottom  of  the  display,  with  the 
choices  (Figure  4.29): 
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/ 

] 

BARGE  DATA 

Fl  Name  or  hull  no:   YC  1711 

Hull  dimensions 
F2    Length:               150.0   ft 
F3    Beam:                  50.0   ft 
F4    Depth:                  12.0   ft 
F5    Draft :                   8 . 0   f t 

Deckhouse  dimensions 
F6    Length:                50.0   ft 
F7    Width:                  30.0   ft 
F8    Height:                10.0   ft 

F9  End  shape :       RaJce  ended 

v_ 

J 

Figure  4.28.  Editing  Barge  Dimensions 


DATA  SUMMARY 


Name  or  hull  no:   YC  1711 

Hull  condition:  5.0 

Tow  speed:  8.0   kts 

Max  expected  wind  speed:  2  0.0   lets 

Relative  wind  direction:  0.0   deg 

Fl  Name  F2  Hull  F3  Tow 
F4  Wind  FS  Rel 


Press  INS  to  continue 


Figure  4.29.  Editing  Barge  Tow  Data 
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jEE  Barge  name 

1J2J  Hull  condition 

F3]  Tow  speed 

^F4j  Wind  speed 

F5  Relative  wind  direction 
Any  changes  are  checked  for  errors;  pressing  Ins^  quits  editing. 

Estimating  Displacement.  The  displacement  of  the  barge  is  needed  for  comparison 
with  the  extreme  tension  data  base.  TOWCALC  estimates  the  displacement  of  barges  using 
the  same  relationship  as  for  dry  docks,  and  using  the  same  values  of  block  coefficient  and 
maximum  section  coefficient: 

A  =  Cb  x  Length  x  Beam  x  Draft 

Saving  to  File.  The  steps  here  are  identical  with  those  for  self-propelled  ships  and 
floating  drydocks. 

43.2  Editing  Existing  Data 

Once  data  has  been  entered  for  a  particular  tow,  the  user  may  make  changes  by  choos- 
ing the  Select  Tow  option  from  the  main  menu,  then  choosing  Edit  existing  data.  The  pro- 
cess is  shown  schematically  in  Figure  4.30,  and  since  the  steps  are  different  for  each  ship 
type,  they  will  each  be  discussed  in  turn. 

43.2.1  Self-Propelled  Ships 

Here,  TOWCALC  immediately  displays  the  tow  data  entered  previously,  in  the  same 
format.  The  edit  prompt  appears,  and  the  menu  of  choices  is  the  same  as  before 
(Figure  4.17). 
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Next,  TOWCALC  displays  the  ship  data,  and  prompts  for  editing  (Figure  4.19).  Note 
there  is  no  option  to  change  the  ship  class:  to  do  so,  the  user  must  return  to  the  Select  Tow- 
option  and  follow  the  original  path  for  entering  new  data  for  a  self-propelled  ship. 

Once  editing  is  complete,  the  user  is  prompted  to  save  the  data  to  a  file,  as  before. 

4.3.2.2  Floating  Drydocks 

This  option  displays  a  summary  of  all  dry  dock  data,  and  prompts  for  editing.  The  edit 
menu  is  the  same  as  before,  and  TOWCALC  behaves  the  same  as  when  entering  new  data. 
After  editing,  the  user  is  prompted  to  save  the  current  data  to  file. 

4 3.2 3  Barges 

TOWCALC  displays  a  summary  of  barge  dimensions  and  prompts  for  editing 
(Figure  4.28).  After  editing  the  dimensions,  the  barge  tow  data  (hull  condition,  tow  speed, 
etc.)  are  displayed  and  another  editing  prompt  is  given  (Figure  4.29).  Finally,  the  user  is 
prompted  to  save  data  to  file. 

4 33  Retrieving  Data  Files 

The  procedures  for  retrieving  tow  data  files  are  similar  to  those  in  Select  Tug;  Figure 
4.31  shows  the  steps  involved  for  all  three  ship  types. 
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Figure  4.30.  Program  Flow:  Edit  Existing  Tow  Data 
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Figure  4.31.  Program  Flow:  Retrieve  Tow  Data  File 
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If  data  for  a  particular  tow  have  been  saved  to  file,  that  data  may  be  retrieved  by  choos- 
ing Select  Tow  at  the  PROGRAM  OPTIONS  menu,  then  selecting  Retrieve  data  from 
file.  After  choosing  the  ship  type,  the  user  is  prompted  for  a  file  name.  An  error  message 
appears  if  invalid  characters  are  entered,  or  if  the  file  could  not  be  opened.  Additionally, 
TOWCALC  checks  that  the  file  is  a  valid  tow  file  (with  the  extension  ".TOW"),  and  further 
checks  that  the  data  matches  the  specified  ship  type.  If  these  conditions  are  not  met,  an  error 
message  is  displayed  and  the  user  is  prompted  to  try  another  file  name.  Typing  "Q"  returns 
the  user  to  the  tow  options  menu. 

Provided  the  tow  file  is  valid,  TOWCALC  reads  the  data  file.  From  this  point,  the 
steps  are  the  same  as  in  Editing  existing  data  for  each  ship  type. 

4.3.4  Resistance  Predictions 

When  all  data  for  a  given  tow  have  been  entered  and  edited  to  the  user's  satisfaction, 
TOWCALC  computes  the  resistance  of  the  tow  and  of  the  towline  at  the  desired  towing 
speed,  using  the  methods  described  in  Chapter  3.  Since  the  results  are  presented  differently 
for  each  ship  type,  we  will  look  at  each  in  turn. 

4.3.4.1  Self-Propelled  Ships 

For  this  ship  type,  a  separate  summary  is  displayed,  showing  (Figure  4.32): 

•  Wind  resistance, 

•  Wave  height, 

•  Added  resistance  due  to  waves, 

•  Hull  resistance, 

•  Propeller  resistance, 

•  Total  tow  resistance, 

•  Hawser  resistance, 

85 


RESISTANCE 

Wind  resistance: 

21996 

lbs 

Wave  height : 

11.6 

ft 

Wave  resistance: 

15895 

lbs 

Hull  resistance: 

10625 

lbs 

Propeller  resistance: 

11865 

lbs 

Total  tow  resistance: 

60381 

lbs 

Hawser  resistance: 

943 

lbs 

Mean  tension : 

61324 

lbs 

Press    INS   to   continue 


Figure  4.32.  Resistance  Summary  for  Self-Propelled  Ships 




RESISTANCE 

Drydock:  AFDB-1 

Table  G-4  data 

fl: 

0.63 

f2: 

0.30 

f3: 

0.70 

Wetted  surface  area: 

23000 

sq  ft  | 

Cross  sectional  area 

Below  waterline : 

720 

sq  ft 

Above  waterline : 

3800 

sq  ft  | 

Resistance 

Frictional : 

9983 

lbs 

Wave  forming: 

18468 

lbs 

Wind: 

9576 

lbs 

Hawser : 

956 

Lbs 

Total: 
Press  INS  to  cont 

38027 
Lnue  — 

lbs 

Figure  4.33.  Resistance  Summary  for  Floating  Drydocks 
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•  Mean  towline  tension. 

When  the  user  is  done  viewing  this  screen,  pressing  Jns,  continues  program  execution. 

4 3.4.2  Floating  Drydocks 

For  drydocks,  the  resistance  predictions  are  listed  along  with  a  summary  of  the  drydock 
data  (Figure  4.33).  The  resistance  is  broken  down  as  follows: 

•  Frictional  resistance, 

•  Wave  forming  resistance, 

•  Wind  resistance, 

•  Hawser  resistance, 

•  Mean  towline  tension. 

Again,  when  the  user  is  done  viewing  this  screen,  pressing  ^  continues  program 
execution. 

43.4 3  Barges 

For  barges,  a  summary  display  similar  to  that  for  drydocks  is  shown  (Figure  4.34).  The 
resistance  predictions  displayed  are  the  same  as  those  for  drydocks. 

43.5  Tug  Evaluation 

So  far,  the  choice  of  tug,  tow,  and  tow  speed  have  been  made  independendy.  Clearly, 
this  is  not  possible  in  practice,  since  a  given  tug  has  a  fixed  engine  plant,  with  finite  power. 
Part  of  that  power  provides  thrust  to  drive  the  tug  through  the  water  at  a  given  speed,  and  the 
rest  is  available  for  towing.  If  the  mean  towline  tension  at  a  given  tow  speed  exceeds  the 
available  towing  thrust,  the  tug  will  be  unable  to  make  that  speed.  To  address  this  problem, 
TOWCALC  evaluates  the  ability  of  the  tug  to  pull  the  tow  at  the  given  speed. 
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Figure  4.35  gives  curves  of  available  thrust  versus  towing  speed  for  the  four  classes  of 
Navy  towing  vessels  used  in  TOWCALC  [3].  At  zero  speed,  the  maximum  installed  power 
is  available  as  thrust,  the  so-called  bollard  pull  condition,  while  at  the  ship's  maximum  free 
running  speed,  the  available  thrust  is  zero. 

After  predicting  the  resistance  of  the  tow,  TOWCALC  evaluates  the  tug/tow/towspeed 
combination  as  follows.  First  it  computes  the  available  thrust  (also  called  available  tension) 
by  interpolating  the  appropriate  curve  in  Figure  4.35  at  the  desired  tow  speed.  Next,  the 
"best  possible"  tow  speed  is  found  by  iteratively  computing  the  tow  resistance  and  towline 
resistance  at  each  speed  (starting  at  zero),  computing  the  available  tension  at  that  speed,  and 
comparing  the  two.  If  the  available  tension  is  greater  than  the  mean  towline  tension,  the  tow 
speed  is  increased  by  one  knot.  This  continues  until  the  available  tension  is  less  than  the 
mean  tension — the  "best"  speed  is  the  last  speed  at  which  the  available  tension  exceeded  the 
mean  tension;  this  speed  may  be  greater  than  or  less  than  the  desired  tow  speed.  An  exact 
solution  is  not  computed  because  the  accuracy  of  the  resistance  prediction  methods  does  not 
warrant  such  precision. 
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1 . 

RESISTANCE 

Name  or  hull  no:  YC  1711 

Data  corresponding  to  Table  G- 

4 

fl  : 

0.63 

f  2  : 

0.20 

f  3  : 

0  .60 

Wetted  surface  area: 

10700 

sq 

ft  i 

Cross  sectional  area 

Below  waterline : 

400 

sq 

ft 

Above  waterline : 

600 

sq 

ft  | 

Resistance 

Frictional : 

4644 

lbs 

Wave  forming: 

132 

lbs 

Wind: 

951 

lbs 

Hawser : 

2552 

lbs 

Total:         8279 
1 Pieas  INS  Lo  continue 

lbs 

Figure  4.34.  Resistance  Summary  for  Barges 
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Figure  4.35.  Available  Tension  vs.  Tow  Speed 
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After  the  best  speed  is  found,  a  summary  is  displayed  (Figure  4.36)  with  a  popup  menu 
giving  the  following  choices: 

1)  Use  best  possible  speed 

2)  Use  original  tow  speed 

3)  Show  graph 

4)  Return  to  PROGRAM  OPTIONS 

Choosing  option  1)  sets  the  tow  speed  to  the  best  speed  found  by  TOWCALC;  choosing  2) 
retains  the  original  tow  speed.  If  the  original  tow  speed  is  greater  than  the  best  possible 
speed,  an  error  message  is  displayed  to  the  effect  that  the  tug  has  inadequate  thrust  at  this 
speed,  prompting  the  user  to  select  the  best  possible  speed  option  (Figure  4.37).  After  the 
user  selects  a  valid  speed  option,  TOWCALC  displays  a  message  confirming  the  choice 
(Figure  4.38). 

Option  3)  displays  the  curves  of  available  tension  vs.  towing  speed  (Figure  4.39)  and 
plots  points  corresponding  to  the  desired  (original)  tow  speed  and  the  best  possible  speed. 
Pressing  any  key  clears  the  screen  and  returns  the  user  to  the  tug  evaluation  menu,  with 
option  4)  highlighted. 

If  options  3)  or  4)  are  selected  before  the  tow  speed  is  set,  an  error  message  is  displayed 
and  the  user  is  returned  to  the  tug  evaluation  menu.  Once  the  tow  speed  is  set,  the  user  may 
choose  either  option  3)  or  4).  Choosing  4)  returns  the  user  to  the  PROGRAM  OPTIONS 
menu,  with  Estimate  Dynamic  Tension  highlighted. 
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TUG  EVALUATION' 


Tug:   ARS  50 
Tow:   DDG  51 
Desired  tow  speed: 
Mean  tension: 
Available  tension: 


9.0 
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7.0 

kts 

86209 

lbs 

98000 

lbs 

Best  tow  speed: 
Mean  tension: 
Available  tension: 


1)  Use  best  possible  speed 

2)  Use  original  tow  speed 

3)  Show  graph 

4)  Return  to  PROGRAM  OPTIONS 


Figure  4.36.  Tug  Evaluation  Summary  and  Options  Menu 
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Figure  4.37.  Inadequate  Tug  Pull  Error  Message 
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TUG  EVALUATION 
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Tow:  DDG  51 
Desired  tow  speed: 
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Figure  4.38.  Confirmation  of  Speed  Selection 
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Figure  4.39.  Screen  Plot  of  Available  Tension  vs.  Tow  Speed 
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4.4  Extreme  Tension 

This  program  option  uses  the  results  of  Chapter  2  to  predict  the  extreme  towline  ten- 
sion for  the  conditions  the  user  has  specified.  Additionally,  this  option  shows  the  user  the 
effects  of  changing  the  two  most  important  variables  under  his  or  her  control:  tow  speed  and 
towline  length. 

4.4.1  Using  the  Data  Base 

As  described  in  Chapter  2,  the  extreme  tension  data  base  is  a  collection  of  "standard 
curve"  choices  for  each  combination  of  tug,  tow,  towing  speed,  wind  speed,  hawser  length, 
and  heading  angle.  Table  2.1  gives  the  range  of  these  parameters;  the  inclusion  of  CVN  65 
data  gives  4320  combinations  in  the  data  base. 

Despite  its  size,  the  data  base  by  no  means  covers  all  possible  cases.  Thus,  a  set  of 
rules  is  needed  to  guide  in  selecting  the  appropriate  combination  that  most  closely  matches 
the  conditions  specified  by  the  user.  We  turn  to  these  rules  next. 

Tug  type.  Although  four  tug  classes  are  available  in  TOWCALC,  for  purposes  of 
extreme  tension  calculations  the  ARS  50  and  ATS  1  classes  are  sufficiently  close  in  hydro- 
dynamic  characteristics  to  be  considered  a  single  class. 

Tow  type.  Extreme  tension  is  directly  influenced  by  the  magnitudes  of  the  relative 
motions  of  the  tug  and  tow.  Generally,  smaller  vessels  will  be  affected  more  at  a  given  sea 
state  than  will  larger  vessels,  and  thus  will  have  larger  relative  motions,  with  correspondingly 
higher  extreme  tensions.  Consequently,  TOWCALC  selects  the  tow  from  the  data  base  with 
the  next  smaller  displacement,  unless  the  tow's  displacement  is  within  25  percent  of  the  next 
larger  vessel  in  the  data  base.  This  leads  to  a  conservative  estimate  of  extreme  tension,  that 
is,  one  with  a  higher  extreme,  but  which  errs  on  the  side  of  safety. 
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Tow  speed.  Speed  contributes  to  extreme  tension  in  two  ways.  First,  the  encounter 
frequency  of  waves,  for  head  seas,  increases  as  speed  increases,  thus  raising  slightly  the 
added  resistance  due  to  waves.  Second,  and  far  more  significantly,  higher  tow  speeds  lead  to 
higher  mean  towline  tensions.  This  increases  extreme  tensions  by  raising  the  base  to  which 
the  dynamic  tension  is  added,  and  also  by  providing  a  stiffer  towline  system  (due  to  reduced 
catenary  depth). 

However,  since  the  extreme  tension  is  computed  using  mean  tension  as  an  argument, 
the  choice  of  tow  speed  in  selecting  a  standard  curve  is  not  a  particularly  sensitive  parameter. 
Consequently,  the  following  rules  are  used  to  select  one  of  the  three  tow  speeds: 

0<VTOW<4.5     :     (VTOW)DataBase  =  3.0     kts 

4.5<VTOW<7.5     :     {V^)DataBase  =  6.0     kts 
VTOW>7.5     :     (VTOW)Da[aBase  =  9.0     kts 

Wind  speed.  TOWCALC  uses  the  following  rules  to  choose  the  appropriate  wind 
speed  in  the  data  base: 

0<VWIND<17.5  :  (VWDJDMBtue  =  15.0  kts 
17.5  <  V^  <  22.5  :  (V^^^  =  20.0  kts 
22.5  <  V^  <  27.5  :  (VW**^  =  25.0  kts 
27.5  £1^*48.0     :     (V^^  =  30.0     kts 

As  noted  in  section  4.3.1.1,  wind  speeds  above  48  knots  generate  wave  heights  outside  the 
range  of  data  in  Figure  3.2. 

Hawser  lengths.  Since  shorter  hawsers  result  in  a  stiffer  towline  system  and  higher 
dynamic  tensions,  TOWCALC  uses  the  next  shorter  length  according  to  the  following  rules: 
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L  <  1000  :  ERROR 

1000  <L<  1200  :  LDataBase  =  1000  ft 

1200<L<1500  :  LDataBast  =  1200  ft 

1500<L<1800  :  LDataBase  =  1 500  ft 

1800  <L<  2100  :  L^^  =  1 800  ft 

L>2100  :  LDauBtHe  =  2100  ft 

Open  ocean  tows  are  very  rarely  conducted  with  less  than  1000  feet  of  hawser,  as  the 
danger  of  breaking  the  towline  in  anything  but  calm  seas  is  too  high.  Consequently,  it  is  rea- 
sonable to  restrict  hawser  length  in  this  manner. 

Heading  angle.  Extreme  tensions  are  not  particularly  sensitive  to  heading  angle,  I\ 
and  so  the  following  rules  are  used: 

0<T<40     :     TDalaBase  =  0     deg 

40<T<70     :     rDM,BmM  =  60     deg 

70<r<110     :     ERROR 

110<r<140     :     rDaM5_  =  120     deg 

140<T<180     :     1^,^  =  180    deg 

As  discussed  in  section  4.3.1.1,  heading  angles  between  70  and  110  degrees  are  not  included 
in  the  data  base  because  the  motions  of  the  tug  (particularly  rolling)  are  more  likely  to  limit 
operations  than  is  extreme  towline  tension. 
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DYNAMIC  TENSION 


Select  basis  for  computing 
extreme  tension: 

1)  Estimated  mean  tension 

2)  Actual  mean  tension 


Figure  4.40.  Menu  for  Selecting  Dynamic  Tension  Basis 
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Figure  4.41.  Dynamic  Tension  Summary 
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4.4.2  Computing  Extreme  Tension 

Figure  4.40  shows  schematically  the  process  of  estimating  dynamic  tension.  When  the 
user  selects  Estimate  Dynamic  Tension,  a  popup  menu  appears  (Figure  4.41)  with  two 
choices  for  the  basis  of  the  calculations  which  follow: 

1)  Estimated  mean  tension 

2)  Actual  mean  tension 

The  first  option  uses  the  mean  tension  as  estimated  in  Select  Tow.  The  second  option 
allows  the  user  to  enter  the  actual  mean  tension  as  determined  in  a  real  towing  situation.  This 
last  gives  a  far  more  accurate  prediction  of  extreme  tension,  but  is  only  useful  once  the  tow  is 
underway,  and  if  there  is  reasonable  confidence  in  the  tension  measurement.  For  planning 
purposes,  the  estimated  mean  tension  is  the  only  available  data.  If  the  user  elects  to  use  a 
measurement  of  actual  mean  tension,  TOWCALC  prompts  for  its  entry.  Values  above  120 
kips  are  not  allowed,  as  this  is  the  largest  mean  tension  used  in  computing  the  extreme  ten- 
sion data  base. 

Once  the  basis  for  calculations  is  chosen,  TOWCALC  computes  the  extreme  tension. 
This  involves  searching  the  data  base  for  the  appropriate  standard  curve,  and  then  computing 
the  extreme  tension  using  the  equation  for  that  curve,  with  mean  tension  as  the  argument. 
The  form  of  the  equation  is 


7^=100 


-        fj  ff 

T  + — +  - 


(l+fbT)    (l+fjT4)} 

where  T  is  the  mean  tension  in  kips  divided  by  100,  and  fa,fb,fc,  andfd  are  coefficients  deter- 
mined by  the  particular  choice  of  standard  curve. 
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Figure  4.42.  Program  Flow:  Estimate  Dynamic  Tension 
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i OPTIONS 


1)  Show  standard  tansion  crurve 

2)  Show  effects  of  tow  speed 

3)  Show  effects  of  hawser  length 

4)  Return  to  PROGRAM  OPTIONS 


Figure  4.43.  Dynamic  Tension  Options  Menu 
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Figure  4.44.  Screen  Plot  of  Extreme  vs.  Mean  Towline  Tension 
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Next,  TOWCALC  displays  a  summary,  showing  the  following  (Figure  4.42): 

•  tug  class, 

•  tow  selected, 

•  closest  tow  from  data  base, 

•  actual  and  tabulated  (from  the  data  base) 

— displacement 
— tow  speed 
— wind  speed 
— wind  direction 
— hawser  length 

•  standard  curve  number, 

•  mean  towline  tension, 

•  dynamic  tension  (extreme  minus  mean), 

•  extreme  tension. 

Pressing  ®  clears  the  screen  and  displays  a  popup  menu  of  options  (Figure  4.43): 

1)  Show  standard  tension  curve 

2)  Show  effects  of  tow  speed 

3)  Show  effects  of  hawser  length 

4)  Return  to  PROGRAM  OPTIONS 

Selecting  the  first  option  plots  a  graph  of  the  standard  curve  (Figure  4.44),  marked  with 
the  particular  values  of  mean  tension  and  extreme  tension.  Pressing  any  key  clears  the  screen 
and  returns  to  the  menu  of  options.  The  last  option  returns  the  user  to  the  PROGRAM 
OPTIONS  menu. 

We  will  look  at  the  remaining  two  options  in  the  next  section. 
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4.4.3  Exploring  Alternatives 

Of  the  many  parameters  which  influence  extreme  towline  tension,  the  tug  operator  has 
real  control  over  only  two:  tow  speed,  and  towline  length.  Wind  and  waves  are  obviously  not 
controllable,  although  the  prudent  mariner  will  avoid  severe  weather  when  possible.  Heading 
angle  is  usually  dictated  by  the  course  the  tug  must  maintain  to  complete  the  journey.  Conse- 
quentiy,  the  only  means  at  the  tug  operator's  disposal  to  reduce  extreme  towline  tension  is  to 
reduce  speed,  or  pay  out  hawser,  or  some  combination  of  both. 

TOWCALC  provides  the  tug  operator,  as  well  as  the  tow  planner,  the  ability  to  see  the 
effects  of  changing  both  tow  speed  and  towline  length.  Large  changes  in  either  must  be 
made  manually,  by  entering  the  Select  Tug  or  Select  Tow  options,  but  the  effects  of  incre- 
mental changes  may  be  seen  by  selecting  Show  effects  of  tow  speed  or  Show  effects  of 
hawser  length.  We  must  note  that  these  options  use  the  estimated  mean  tension  as  the  basis 
for  their  calculations;  selecting  the  actual  mean  tension  as  the  basis  at  the  beginning  of  Esti- 
mate Dynamic  Tension  does  not  change  this. 

4.4.3.1  Effects  of  Tow  Speed 

When  this  option  is  chosen,  TOWCALC  computes  the  mean  towline  tension  and 
extreme  tension  for  tow  speeds  equal  to  the  original  tow  speed  plus  or  minus  one  knot.  If  the 
original  speed  is  1.0  knots,  the  lower  speed  is  also  set  to  1.0  knot;  if  the  original  speed  is  12.0 
knots,  the  upper  speed  is  also  set  to  12.0  knots. 
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Figure  4.45.  Effects  of  Towing  Speed  With  Options  Menu 
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Figure  4.46.  Screen  Plot  of  Effects  of  Towing  Speed 
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Once  these  calculations  are  complete,  TOWCALC  displays  the  results  (Figure  4.45), 
showing: 

•  tow  speed, 

•  standard  curve  number, 

•  mean  tension, 

•  dynamic  tension, 

•  extreme  tension. 

A  popup  menu  gives  the  choices: 

1 )  Show  graph 

2)  Return  to  OPTIONS 

Choosing  Show  graph  shows  the  standard  tension  curves  for  each  speed,  marked  with  the 
corresponding  extreme  tension  (Figure  4.46);  pressing  any  key  clears  the  screen  and  returns 
to  the  OPTIONS  menu.  Choosing  Return  to  OPTIONS  skips  the  graph. 

4.4.3.2  Effects  of  Towline  Length 

When  this  option  is  chosen,  TOWCALC  computes  the  mean  towline  tension  and 
extreme  tension  for  towline  lengths  equal  to  the  original  length  plus  or  minus  300  feet.  If  the 
original  length  is  1000  feet,  the  lower  length  is  also  set  to  1000  feet;  if  the  original  length  is 
2100  feet,  the  upper  length  is  also  set  to  2100  feet. 

Once  these  calculations  are  complete,  TOWCALC  displays  the  results,  showing  the 
same  display  as  in  Show  effects  of  tow  speed,  with  towline  length  substituted  for  tow  speed 
(Figure  4.47). 

The  same  popup  menu  appears  as  in  Show  effects  of  tow  speed,  with  the  same  func- 
tions. Figure  4.48  shows  the  extreme  vs.  mean  tension  curves  for  each  length,  marked  with 
the  corresponding  extremes. 
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Figure  4.47.  Effects  of  Hawser  Length  With  Options  Menu 
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Figure  4.48.  Screen  Plot  of  Effects  of  Hawser  Length 
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4.5  Printing  a  Report 

This  option  gives  the  user  the  ability  to  obtain  hard  copy  output  of  the  result',  ot  ;i 
TOWCALC  session.   When  this  option  is  chosen,  a  popup  menu  is  displayed  giving  the  fol 
lowing  choices  (Figure  4.49,): 

1 ;  Send  report  to  printer 
2)  Send  report  to  file  only 
3;  Return  to  PROGRAM  OPTIONS 
The  first  option  creates  a  report  by  writing  data  to  a  file  ("RLROR'I  .OUT";,  then  send 
ing  the  file  to  the  printer.   TOWCALC  prompts  the  user  to  ensure  the  printer  is  connected 
and  online  before  attempting  to  print.  Choosing  the  second  option  causes  TOWCALC    to 
write  the  report  data  to  a  file,  but  does  not  send  it  to  the  printer.  The  third  option  [fetUSIll  thl 
user  to  the  main  program  menu. 

The  report  itself  is  in  five  sections: 
I.  TUG  DATA 
II.  'fOW  DATA 

III    RESISTANCE  PREDICTION 
IV.  TUG  EVALUATION 
V.  DYNAMIC  TENSION 

A  sample  report  is  given  a.s  Appendix  li.   Lach  section  duplicate!  the  appropriate  d;ita  sum- 
mary shown  on  the  screen  by  TOWCALC  for  the  corrcspondmj'  program  Option.  I* or  exam- 
ple, Section  I  contains  the  information  shown  in  Hgure  4.6;  Section  II  dupli-  Btel  figures 
4.17and4.19. 
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1)  3»nd  r»port  to  printer 

2)  3«nd  r«port  to  fil*  only 
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Figure  4.49.  Print  Report  Options  Menu 
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Chapter  5 
Conclusions 

5.1  Summary 

The  theory  of  extreme  seakeeping  loads  in  towlines  makes  possible  a  more  accurate 
evaluation  of  towing  systems  than  previous  practice  allowed,  leading  to  safer,  more  efficient 
ocean  towing.  Reducing  the  uncertainty  of  the  dynamic  loads  to  which  towlines  are  subject 
makes  possible  a  corresponding  reduction  in  the  factors  of  safety  applied  to  towing  system 
design.  When  the  dynamic  tensions  are  small,  this  can  lead  to  higher  towing  speeds,  which 
in  turn  shortens  the  length  of  time  spent  at  sea,  reducing  exposure  to  the  elements  and  further 
diminishing  the  risk  of  towline  failure. 

During  an  actual  tow,  the  ability  to  predict  dangerous  peak  tensions  gives  tug  operators 
the  opportunity  to  take  action  to  reduce  those  peaks.  The  most  effective  means  to  reduce 
extreme  towline  tensions  are  to  reduce  speed,  increase  the  length  of  the  hawser,  or  both. 

The  computer  program  which  forms  the  bulk  of  the  work  in  this  thesis,  TOWCALC, 
greatly  simplifies  the  task  of  tow  planning  by  automating  the  process  of  predicting  mean  and 
extreme  towline  tensions.  By  doing  this  in  a  user-friendly  manner,  TOWCALC  gives  both 
planners  and  operators  the  freedom  to  explore  different  alternatives  rapidly  and  efficiently. 
In  so  doing,  it  will  also  help  tug  operators  gain  a  better  understanding  of  the  actions  they  can 
take  at  sea  to  reduce  peak  dynamic  tensions. 

I  must  emphasize,  however,  that  TOWCALC  is  not  an  expert  system.  Its  primary  pur- 
pose is  to  serve  as  a  computational  tool  to  aid  in  decision  making,  but  not  to  make  those  deci- 
sions itself.  The  final  evaluation  of  a  given  tow  design  is  left,  properly,  to  the  user. 
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5.2  Further  Study 


Although  a  great  deal  has  been  accomplished  in  the  study  of  towing  dynamics,  there 
remains  much  to  be  done. 

An  important  first  step  is  to  validate  the  theory  of  extreme  tensions  with  full-scale 
experiments.  A  test  plan  for  such  experiments  has  been  developed  (Christensen  [10]),  and  a 
full-scale  trial  has  been  scheduled  by  the  Navy. 

More  research  is  needed  to  develop  a  theory  to  better  predict  the  added  resistance  in 
waves  at  the  low  speeds  used  in  towing.  This  is  the  largest  source  of  uncertainty  in  the  pre- 
diction of  mean  tension,  and  any  improvements  in  accuracy  would  greatiy  improve  the  utility 
of  TO WCALC  as  a  planning  tool. 

Expanding  the  current  data  base  of  extreme  tension  results  to  include  more  ship  types, 
longer  towing  hawsers,  and  different  configurations  of  chain  and  hawser  would  improve  the 
overall  accuracy  of  the  predictions.  This  should  be  combined  with  a  thorough  sensitivity 
analysis,  based  on  a  parametric  hull  form,  to  gain  better  insight  into  the  effects  of  hull  geom- 
etry on  extreme  tensions. 

There  are  many  improvements  which  could  be  made  to  the  program  TO  WCALC,  and 
Fleet  use  will  inevitably  suggest  a  number  of  such  improvements.  One  important  area  which 
has  been  left  out  is  the  theory  of  extreme  tensions  for  fiber  rope  towlines  [2];  although  only 
the  newer  classes  of  Navy  towing  vessels  are  able  to  handle  large  circumference  synthetic 
lines,  adding  this  capability  to  TOWCALC  would  improve  the  flexibility  of  the  program. 
Despite  this  omission,  I  believe  that  TOWCALC  in  its  present  form  is  a  highly  useful  tool. 
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Appendix  A 

Extreme  Tension  Data  for  CVN  65 

Tables  A.l  through  A. 3  give  the  results  of  the  extreme  tension  calculations  for  the 
nuclear-powered  aircraft  carrier  CVN  65  towed  by  ARS  38,  ARS  50/ ATS  1 ,  and  T-ATF  166 
respectively. 
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Appendix  B 
Sample  Tow  Report 

This  appendix  contains  a  sample  tow  report  produced  by  the  Print  Report  option  in 
TOWCALC.  The  data  is  for  ARS  50  towing  DDG  51. 
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TOW  REPORT   | 


SECTION 
TUG  DATA  - 


Class:  ARS  50 

Hawser  data 
diameter: 
scope : 


2.2  5  in 
1500  ft 


Chain  pendant  data 

size :  2 .25  in 

scope:  90  ft 


SECTION 
TOW   DATA    - 


II 


Tow  type : 


SHIP 


Input  data 

Hull  number:  DDG  51 

Full  load  displacment : 

Tow  speed: 

Maximum  expected  wind  speed: 

Relative  wind  direction: 

Propeller  status: 

Table  G-2  data 

Ship  class:  DDG  51-53 

Tabulated  displacement: 

Frontal  area: 

Wind  coefficient: 

Propeller  area: 

Hull  resistance  curve: 

Wave  resistance  curve: 


8500  tons 

7.0  kts 
25.0  kts 
0.0  deg 
Trailing 


8300 

tons 

6900 

sq  ft 

0.70 

254 

sq  ft 

4 

1 
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-SECTION       III    — 
RESISTANCE    PPEDICTION 


Tow    type:  SHIP 

Wind  resistance:  21996  lbs 

Wave  height:          11.6  ft 

Wave  resistance:  15895  lbs 

Hull  resistance:  10625  lbs 

Propeller  resistance:  11865  lbs 


Total  tow  resistance:  60381  lbs 

Hawser  resistance:  1848  lbs 

Mean  towline  tension:  62229  lbs   or   62.23  kips 


SECTION      IV 
■    TUG   EVALUATION    — 


Tug:    ARS    50 
Tow:    DDG    51 

Desired  tow  speed:  5.0  kts 

Mean  tension  at  this  speed:  61324  lbs 

Available  tension  at  this  speed:  114700  lbs 

***  Tug  has  sufficient  pull  at  this  speed  *** 

Best  possible  tow  speed:  7.0  kts 

Mean  tension  at  this  speed:  86209  lbs 

Available  tension  at  this  speed:  98000  lbs 

Option  selected: 

Tow  speed  =   7.0  kts  (BEST  POSSIBLE) 
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SECTION      V 
DYNAMIC    TENSION 


Tug:    ARS    50 
Tow:    DDG    51 

Tabulated  data 
Tow:  DD  963 

Displacement:  6700  tons 

Tow  speed:  6  kts 

Wind  speed:  25  kts 

Wind  direction:  0  deg 

Hawser  scope:  1500  ft 
Curve  number 

from  Appendix  0:  4 

Results 

Mean  tension:  86.21  kips  (ESTIMATED) 

Dynamic  tension:  103.45  kips 

Extreme  tension:  189.66  kips 

Note:  The  following  results  are  based  on  predicted, 
not  actual  tow  resistance 

Effects  of  tow  speed: 
Tow  speed  (kts) : 

Curve  number: 

Mean  tension  (kips) : 
Dynamic  tension  (kips) : 
Extreme  tension  (kips) : 


Effects  of  hawser  scope: 
Hawser  scope  (ft) : 

Curve  number: 


6 

.0 

7 

.0 

8 

.0 

4 

4 

3 

72 

.7 

86 

.2 

100 

.8 

87 

.2 

103 

.5 

90 

.7 

59 

.9 

189 

.7 

191 

.5 

Mean  tension  (kips) : 
Dynamic  tension  (kips) : 
Extreme  tension  (kips) : 


1200 

1500 

1800 

5 

4 

3 

85.8 

86.2 

86.6 

128.8 

103.5 

77.9 

214.6 

189.7 

164.5 
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Appendix  C 
Installing  TOWCALC 

TOWCALC  is  provided  on  a  single  360  kilobyte  floppy  disk.  Included  is  an  installa- 
tion program,  "setup.exe",  which  performs  all  necessary  tasks  to  get  TOWCALC  running  on 
a  computer.  To  install  TOWCALC,  first  ensure  approximately  500  kilobytes  of  memory  are 
available  on  the  hard  disk.  Insert  the  floppy  disk  in  drive  A,  and  type  "A:"  at  the  DOS 
prompt.  Type  "setup"  and  follow  the  instructions  given  by  the  program.   When  finished, 
"setup"  exits  with  the  current  directory  as  "C:\TOWCALC".  To  enter  TOWCALC,  type 
"towcalc". 

The  source  code  for  "setup"  is  included  as  part  of  this  appendix. 
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File:  setup. c 

Author:  Todd  J.  Peltzer 

Last  update:  3  May  1989 

This  file  prepares  the  user' s  computer  for  installation  of 
TOWCALC  and  loads  the  necessary  files. 

♦include  "stdio.h" 
tinclude  "dos.h" 

static  char  *label[]  = 


TOWING  CALCULATIONS", 
Setup  Program" , 
This  program  prepares  TOWCALC  for  use' 
on  your  computer.  Please   follow   the' 
directions  that  are  given 
Press  any  key  to  continue 
.  .  .  .  please  wait  .  .  . 
.  .  .  .  copying  files  .  . 
.  .  .  .  cleaning  up  .  .  . 
Which  graphics  display  does  your  computer  have?' 

1)  CGA  :  Color  Graphics  Array", 

2)  EGA  :  Enhanced  Graphics  Array", 

3)  Hercules  :  Hercules  graphics  adapter". 
Enter  number  of  your  graphics  display:  ", 

.  .  .  .  cleaning  up  .  .  .  .", 
To  run  TOWCALC,  change  directories  to", 

c:\\TOWCALC", 
and  type  TOWCALC . " 


}; 


void  wait ( ) ; 

main  () 
{ 

FILE  *out; 

int  i ; 

int  result; 

char  sys_call [ 81]  ; 

char  device [13]; 

int  mode ; 

/*  print  intial  message  on  screen  */ 
result  =  system ( "els") ; 
printf ("\n\n%s\n\n", label [0] ) ; 
printf ("%s\n\n", label [1] ) ; 
printf  ("%s\n", label [2] ) ; 
printf ("%s\n", label [3] ) ; 
printf ("%s\n\n\n", label [  4  ]  )  ; 
printf  (,,sts\n",  label  [5]  )  ; 

wait  ()  ; 

/*  create  directory  on  hard  drive  */ 
sprintf  (sys_call,  "mkdir  c:  Wtowcalc"  )  ; 
printf ("\n%s\n", label [6]  )  ; 
result  =  system(sys_call) ; 

/*  copy  archive  to  TOWCALC s  directory  */ 

printf ("  ,n%s\n\n", label [7] ) ; 

sprintf  (sys_call,  "copy  a  :towf  iles  .  exe  c:  Wtowcalc"  ) 

result  =  system (sys_call) ; 
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/*  extract  files  from  archive  */ 
result  =  system ( "c: " ) ; 
sprintf  (  sys_call ,  "cd  c  :  Wtowcalc"  )  ; 
result  =  system ( sys_call ) ; 
sprintf (sys_call, "towfiles") ; 
result  =  system (sys_call ) ; 

/*  delete  archive  from  hard  drive  */ 
print f  ("\n%s\n", label [8] ) ; 
sprintf ( sys_call, "del  towfiles . exe") j 
result  =  system ( sys_call ) ; 

/*  get  graphics  device  */ 
result  =  system ( "els" ) ; 
while  (1) 

{ 

for  (i=0;  i<5;  i++) 

printf ("%s\n", label [9+i] ) ; 
scanf ( "%d" , &i) ; 
if  (i==l) 
{ 

sprintf (device, "HALOIBMG .DEV") ; 

mode— 1; 

break; 
} 

else  if  (i==2) 
{ 

sprintf (device, " HALO IBME .DEV" ) ; 

mode=4 ; 

break; 
} 

else  if  (i==3) 
{ 

sprintf (device, "HALOHERC.DEV") ; 

mode=0; 

break; 


else  continue; 


} 


/*  clean  up  extraneous  HALO  device  drivers  */ 

if  (i==l) 

{ 

printf ("\n%s\n", label [14] ) ; 

sprintf (sys_call, "del  HALO IBME .DEV") ; 

result  =  system (sys_call) ; 

sprintf (sys_call, "del  HALOHERC.DEV") ; 

result  =  system (sys_call) ; 
} 

else  if  (i==2) 
{ 

printf ("\n%s\n", label [14] ) ; 

sprintf (sys_call, "del  HALOIBMG. DEV") ; 

result  =  system (sys  call); 

sprintf (sys_call, "del  HALOHERC.DEV") ; 

result  =  system (sys_call) ; 
} 

else  if  (i==3) 
{ 

printf ("\n%s\n", label [14] ) ; 

sprintf (sys_call, "del  HALOIBMG. DEV") ; 

result  =  system (sys  call); 

sprintf (sys_call, "del  HALO IBME .DEV") ; 

result  =  system ( sys_call ) ; 
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/*  create  file  DEVICE.DAT  */ 
out=f open ( "DEVICE . DAT" , " w" ) ; 
fprintf (out, " ts\n%d\n" , device, mode) 
f close  (out) ; 

/*  print  final  message  */ 
result  =  system ( "els ") ; 
printf  ("\n\n*s\n", label [15] ) ; 
printf ("\n%s\n", label [ 16] )  ; 
printf ("\n%s\n", label [ 17] ) ; 


void  wait ( ) 

{ 

union  inkey 
{ 

char  ch [ 2 ] ; 
int  i  ; 
}  c; 

/*  wait  for  keystroke  */ 

while  (1) 

( 

c.i  =  bioskey(O);        /*  read  the  key  */ 

if  (c.ch[0])  /*  key  is  a  normal  key  */ 

{ 

break; 
} 

else  /*  key  is  a  special  key  */ 

{ 

break; 
} 


} 


} 
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Appendix  D 
TOWCALC  Source  Code 


This  appendix  contains  the  source  code  for  TOWCALC.  There  are  eighteen  files 
listed:  one  "make"  file,  three  include  files,  and  fourteen  source  files. 

The  make  file  is  used  to  compile  the  program  using  the  Microsoft  "make.exe"  utility; 
TOWCALC  is  compiled  using  the  "large"  memory  model,  and  a  stack  size  of  16,384  bytes 
(hexadecimal  4000).  The  object  code  "halodvxx.obj"  and  the  library  "haloul.lib"  are  needed 
for  the  Halo  graphics  routines  (the  source  code  for  these  is  not  provided). 
The  include  files  are: 

keydef.h      :  auxiliary  byte  values  for  special  keys 

plthead.h     :  function  declarations  for  plotting  routines 

video.h        :  various  macro  definitions 
The  source  files  are: 

main.c         :  controls  overall  program  operation 

title.c  :  displays  title  screen 

tug.c  :  supports  "Select  Tug"  option 

tow.c  :  supports  data  entry  for  self-propelled  ships 

tab.c  :  displays  data  base  for  selection  of  ship  type 

dis.c  :  displays  ship  data  summary;  allows  editing 

dock.c         :  supports  data  entry,  resistance  prediction  for  drydocks 

brg.c  :  supports  data  entry,  resistance  prediction  for  barges 

drg.c  :  supports  resistance  prediction  for  self-propelled  ships 

pull.c  :  supports  tug  evaluation 
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ext.c  :  supports  estimation  of  extreme  tensions 

rp.c  :  supports  "Print  Report"  option 

plt.c  :  plotting  functions 

tlib.c  :  a  library  of  functions  used  throughout  TOWC ALC 

The  make  file  used  to  compile  TOWCALC  is  listed  below. 

main.obj:        main.c 
cl  /AL  /c  main.c 

title. obj:       title. c 
cl  /AL  /c  title. c 

brg. obj :       brg. c 
cl  /AL  /c  brg.c 

dock. obj:        dock . c 
cl  /AL  /c  dock.c 

tug. obj:         tug.c 
cl  /AL  /c  tug.c 

tow. obj:         tow.c 
cl  /AL  /c  tow.c 

tab. obj:        tab.c 
cl  /AL  /c  tab.c 

dis.obj:        dis.c 
cl   /AL  /c  dis.c 

drg. obj :         drg. c 
cl  /AL  /c  drg.c 

tlib.obj:      tlib.c 
cl  /AL  /c  tlib.c 

ext.obj:         ext.c 
cl  /AL  /c  ext.c 

pull. obj:        pull.c 
cl  /AL  /c  pull.c 

rp.obj:        rp.c 
cl  /AL  /c  rp.c 

pit. obj:         plt.c 
cl  /AL  /c  plt.c 

towcalc.exe:  main.obj  title. obj  brg. obj  dock. obj  tug. obj  tow. obj  tab. obj 
dis.obj  drg. obj  tlib.obj  ext.obj  pull. obj  rp.obj  pit. obj  halodvxx.obj 

link  /ST: 0x4000  /NOD  main+title+brg+dock+tug+tow+tab+dis+drg+tlib+ext+ 
pull+rp+plt+halodvxx,  towcalc,  ,  llibc+llibf p+libh+em+haloul 
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/a************************************************************************** 
Filai  kyedef.h 

This  header  file  contains  definitions  for  the  auxiliary  byte  values  for 
the  special  keys  on  an  IBM  keyboard. 
♦a**************************************************************************/ 

♦define  LEFT_ARROW  75 

♦define  RIGHT_ARROW  77 

♦define  UP_ARROW  72 

♦define  DOWN_ARROW  8  0 

♦define  PAGE_UP  73 

♦define  PAGE_D0WN  81 

♦define  HOME  71 

♦define  END  79 

♦define  ESC  27 

♦define  BKSP  8 

♦define  INSERT  82 

♦define  DELETE  83 

♦define  CTRL_LEFT  115 

♦define  CTRL_RIGHT  116 

♦define  CTRL_END  117 

♦define  CTRL_PGDN  118 

♦define  CTRL_H0ME  119 

♦define  CTRL_PGUP  132 

♦define  Fl  59 

♦define  F2  60 

♦define  F3  61 

♦define  F4  62 

♦define  F5  63 

♦define  F6  64 

♦define  F7  65 

♦define  F8  66 

♦define  F9  67 

♦define  F10  68 

♦define  SHIFT_F1  84 

♦define  SHIFT_F2  85 

♦define  SHIFT_F3  86 

♦define  SHIFT_F4  87 

♦define  SHIFT_F5  88 

♦define  SHIFT_F6  89 

♦define  SHIFT_F7  90 

♦define  SHIFT_F8  91 

♦define  SHIFT_F9  92 

♦define  SHIFT_F10  93 

♦define  CTRL_F1  94 

♦define  CTRL_F2  95 

♦define  CTRL_F3  96 

♦define  CTRL_F4  97 

♦define  CTRL  F5  98 
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♦define  CTRL_F6  99 

♦define  CTRL_F7  100 

♦define  CTRL_F8  101 

♦define  CTRL_F9  102 

♦define  CTRL_F10  103 

♦define  ALT_F1  104 

♦define  ALT_F2  105 

♦define  ALT_F3  106 

♦define  ALT_F4  107 

♦define  ALT_F5  108 

♦define  ALT_F6  109 

♦define  ALT_F7  110 

♦define  ALT_F8  111 

♦define  ALT_F9  112 

♦define  ALT_F10  113 

♦define  ALT_Q  16 
♦define  ALT_W  17 
♦define  ALT_E  18 
♦define  ALT_R  19 
♦define  ALT_T  20 
♦define  ALT_Y  21 
♦define  ALT_U  22 
♦define  ALT_I  23 
♦define  ALT_0  2  4 
♦define  ALT_P  25 

♦define  ALT_A  30 
♦define  ALT_S  31 
♦define  ALT_D  32 
♦define  ALT_F  3  3 
♦define  ALT_G  34 
♦define  ALT_H  3  5 
♦define  ALT_J  3  6 
♦define  ALT_K  3  7 
♦define  ALT_L  38 

♦define  ALT_Z  4  4 

♦define  ALT_X  4  5 

♦define  ALT_C  4  6 

♦define  ALT_V  4  7 

♦define  ALT_B  4  8 

♦define  ALT_N  4  9 

♦define  ALT  M  50 
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File:  pithead. h 

This  header  file  contains  declarations  for  the  plotting 
routines  in  the  file  plt.c. 
♦a**************************************************************************/ 

short    ntcl, ixO, iyO, ixl, iyl, npx, nf ax, nfay, knumx, knumy, mode, icf , icb, npy, 
ipbx, ipby, ntix, ntiy, nxx, nyy; 

float    xO, yOp, xl, yl, xmin, xmax, ymin, ymax, tclx, tcly,  scxx,  scyy,  xrange, 
yrange, xtic, ytic, xtx(100] , yty [ 100] , xtl [ 100] ,xtu[100]  ,  xf f , 
yff ,ytl [100] , ytu(100] ,x3 1(100] ,x3u[100] , y31 [ 100 ] , y3u [ 100] ; 

char     cs [ 6] , ell (4 ] , cnul; 
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/♦♦♦a******************************************************************* 
File:  video. h 

This  header  file  contains  various  macro  definitions  used  throughout 
TOWCALC . 

a***********************************************************************/ 

♦define  REV_VID  0x70 
♦define  NORM_VID  7 
♦define  BLINK_REV_VID  OxFO 

♦define  ERROR  0 
♦define  WARN  1 
♦define  BLANK  2 

♦define  NONE  0 
♦define  SINGLE  1 
♦define  DOUBLE  2 

♦define  LOCKED  0 
♦define  TRAILING  1 
♦define  REMOVED  2 

♦define  ARS38  0 
♦define  ARS50  1 
♦define  ATS1  2 
♦define  TATF166  3 

♦define  SHIP  0 
♦define  DOCK  1 
♦define  BARGE  2 
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/I**************************************************************************** 
File:  main . c 
Author:  Todd  J.  Peltzer 
Last  update:  29  April  1989 

This  file  contains  the  functions  which  control  overall  program 
operation. 

Functions : 
main ( ) 

get_options ( ) 
main_menu ( ) 
get_tow_menu ( ) 
initial () 
check_f ile ( ) 
•a***************************************************************************/ 

tinclude  "stdio.h" 

♦include  "dos.h" 

♦include  "stdlib.h" 

♦include  "keydef.h"    /*  Define  aux  byte  values  for  IBM  keyboard  */ 

tinclude  "video. h" 

static  int  startrow«=2; 
static  int  startcol=20; 
static  int  endrow=22; 
static  int  endcol=60; 

static  char  header []  = 
{ 

"PROGRAM  OPTIONS" 

); 

static  char  *options[]  = 

{ 

"1)  Select  Tug 

"2)  Select  Tow 

"3)  Estimate  Dynamic  Tension 

"4)  Print  Report 

"5)  QUIT 

>; 

static  char  *optionsl[]  ■ 
{ 

"1)  Enter  new  data     ", 

"2)  Edit  existing  data", 

"3)  Retrieve  data  file" 
); 

static  char  *label[]  = 
{ 

"TOW  DATA", 

"Options" 

}; 
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char  table [141]  [81]  ; 
char  tug [15] ; 
char  hull_no [  24  ] ; 
char  class [24]/ 
char  textl [39]  ; 
char  text 2 [39]  ; 
int  curve; 
int  flag [4]  ; 
int  type; 

float  tug_data [5] ; 
float  tow_data [5] ; 
float  ship_data [6] ; 
float  dock_data [ 7 ]  ; 
float  barge_data(8]  ; 
float  resist_dat [5] ; 
float  tension; 
float  extr_ten; 
float  barge_res [6] ; 
float  tug_eval[7]; 
float  ext_data [ 10  ]  ; 
float  spd_data[3] [4); 
float  lgth_data[3] [4] 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


Table  G-2  data 

tug  class 

hull  number  entered  by  user 

class  of  ship  from  Table  G-2 

error  message  text  strings 


curve  number  from  extreme 
error  checking  flag  array 
tow  type 

array  to  store  tug  data 
array  to  store  tow  data 
array  to  store  Table  G-2  data 
array  to  store  drydock  data 
array  to  store  barge  data 
resistance  data 
/*  mean  towline  tension 
/*  extreme  towline  tension 
/*  computed  barge  parameters 
/*  tug  evaluation  results 
/*  extreme  tension  results 
/*  tow  speed  effects  results 
/*  hawser  length  effects  results 


*/ 
V 

*/ 
*/ 

V 
V 

*/ 

*/ 
*/ 
*/ 
*/ 

V 

*/ 
*/ 

V 

*/ 

V 

*/ 
*/ 

V 

*/ 
*/ 


void  get_options ( ) , main_menu ( ) , get_tow_menu ( ) ; 
void  initial (), check  file(); 


main  ( ) 
{ 

int  i ,  j ; 

char  ch; 


/*  dummy  counters  */ 
/*  dummy  variable  */ 


for  (i=0;  i<4 , 

flag[i]=0; 
cls(); 

set_video  ()  ; 
initial  () ; 
title  ()  ; 
cursor  off () ; 


i++) 


/*  initialize  flags  */ 

/*  clear  the  screen  */ 

/*  set  video  mode  */ 

/*  check  for  all  necessary  data  files  */ 

/*  display  title  screen  */ 

/*  turn  off  blinking  cursor  */ 


/*  draw  background  and  border  */ 

draw  window  (startrow,  started,  endrow,  endcol,  DOUBLE,  REV  VID)  ; 


get_options (0) ; 


/*  display  main  menu,  get  user  response  */ 


) 

This  function  controls  the  main  program  options. 
•a***************************************************************************/ 

void  get_opt ions (start) 

int  start; 

{ 

int  choice; 

static  int  extflag; 
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/*  display  main  program  menu;  get  user' s  choice  */ 
main  menu (Schoice, start ) ; 

if  (choice==0)  /*  select  tug  */ 

{ 

/*  get  tug  parameters  from  user  */ 

get_tug (tug, tug_data, flag) ; 

get_options (1) ; 

} 

else  if  (choice==l)      /*  select  tow  */ 

( 

if  (!flag[0]) 

{ 

sprintf (textl, "A  tug  has  not  been  selected"); 
sprintf (text2, "==>  please  select  a  tug  <=="); 
display_error (ERROR, textl, text2) ; 
cursor_of f ( ) ; 
get_options (0) ; 

) 

get_tow_menu (fitype) ; 

} 

else  if  (choice==2)      /*  estimate  dynamic  tension  */ 

{ 

if  (!flag[0]  &&  !flag[l]) 

{ 

sprintf (textl, "Tug  and  tow  have  not  been  selected"); 

sprintf (text2, "==>  please  select  a  tug  and  a  tow  <==") 

display_error (ERROR, textl, text2) ; 

cursor_of f ( ) ; 

get_options (0) ; 
) 
else  if  ( !flag[0] ) 

{ 

sprintf (textl, "A  tug  has  not  been  selected"); 

sprintf (text2, "==>  please  select  a  tug  <=="); 

display_error (ERROR, textl, text2) ; 

cursor_of f ( ) ; 

get_options (0) ; 
} 

else  if  (!flag[l]) 
{ 

sprintf (textl, "A  tow  has  not  been  selected"); 

sprintf  (text2,  "»>  please  select  a  tow  <=-"); 

display_error (ERROR, textl, text2) ; 

cursor_of f () ; 

get_options (1) ; 
) 

extreme (type, fitension, &extr_ten, Scurve,  &extf lag)  ; 
get_ext_opt (extf lag, type, curve, tension, extr_ten, 0) ; 
flag[3]=l; 
get_options (2)  ; 

} 
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else  if  (choice*=3)      /*  print  reports  */ 
{ 

if  (!flag(0]  &&  !flag[l]) 
{ 

aprintf (textl, "Tug  and  tow  have  not  been  selected"); 

sprintf (text2, "==>  please  select  a  tug  and  a  tow  <=="); 

display_error (ERROR, textl, text2) ; 

cursor_of f () ; 

get_options (0) ; 
} 

else  if  (  !flag[0] ) 
{ 

sprintf (textl, "A  tug  has  not  been  selected"); 

sprintf (text2, "==>  please  select  a  tug  <=="); 

display_error (ERROR, textl, text2) ; 

cursor_of f ( ) ; 

get_options (0)  ; 
} 

else  if  (  !flag[l] ) 
{ 

sprintf (textl, "A  tow  has  not  been  selected"); 

sprintf (text2, "==>  please  select  a  tow  <=="); 

display _error (ERROR, textl, text2) ; 

cursor_of f ( ) ; 

get_options (1) ; 
} 

else  if  (  !flag[3] ) 
( 

sprintf (textl, "Dynamic  tension  has  not  been  estimated"); 

sprintf (text2, "==>  please  select  Dynamic  Tension  <=="); 

display_error (ERROR, textl, text2) ; 

cursor_of f ( ) ; 

get_options (2)  ; 
} 

report ( ) ; 
cursor_of f ( ) ; 
get_options (4) ; 
> 

else  if  (choice==4  | |  choice<0)      /*  quit  */ 
{ 

cls(); 

cursor_on () ; 
exit (0) ; 
) 


} 


This  function  displays  the  main  program  menu  and  allows  the  user  to 
select  an  option  using  the  cursor  keys. 
it****************************************************************************/ 

void  main_menu (choice, hilite) 
int  * choice; 
int  hilite; 
{ 
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int  i, start , end; 

/*  clear  background  */ 

clear (startrow+1, startcol+1, endrow-1, endcol-1, REV  VID) ; 

/*  write  header  */ 

write_header  (startrow,  started,  endcol,  header,  REV_VID)  ; 

/*  write  options  */ 

start  =  (endcol-startcol-strlen  (options  [3]  )) /2  +  started; 

for  (i=0;  i<6;  i++) 

{ 

write_string(startrow+7+i, start, options [i] , REV_VID) ; 

) 

/*   display  options  with  popup  menu;  get  response  */ 

"choice  =  popup (options, "12345", 5, startrow+6, start-2, NONE, REV  VID,hilite); 


/to*************************************************************************** 

This  function  displays  the  tow  menu  and  allows  the  user  to  select  an 
option  using  the  cursor  keys. 

void  get_tow_menu (shiptype) 
int  * shiptype; 

{ 

int  i, start, choice, status, docktype; 

int  rowl=startrow+8;  /*  boundaries  of  menu  */ 

int  row2=startrow+15;  /*  "          */ 

int  coll=startcol+5;  /*  "          */ 

int  col2=startcol+35;  /*  "          */ 

FILE  *in;  /*  pointer  to  file   */ 

unsigned  char  *p;  /*  buffer  for  video  */ 

static  char  header []  = 
{ 

"Select  Type" 
}; 

static  char  *type[]  = 
{ 

"1)  Self-propelled  ships", 

"2)  Floating  drydocks    ", 

"3)  Barges 
>; 

/*  clear  background  */ 

clear (startrow+1, startcol+1, endrow-1, endcol-1, REV_VID) ; 

/*  write  header  */ 

write  header  (startrow,  started,  endcol,  label  [0]  ,  REV_VID)  ; 
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/*  select  enter  new  data,  edit  current  data,  or  retrieve  file  */ 
start  ■  (endcol-startcol-strlen  (label  [1] ))  /2  +  started; 
write_string(startrow+8, start, label [1 ] , REV_VID) ; 

start  =  (endcol-startcol-strlen  (optionsl  [0]  )) /2  +  started; 

choice  =  popup (optionsl, "123" , 3, startrow+10, start -2, NONE, REV_VID, 0) ; 

if  (choice==0)  /*  enter  new  data  */ 

{ 

clear (startrow+5, startcol+1, endrow-3, endcol-1, REV_VID) ; 
flag[l]=0; 
} 

else  if  (choice==l)     /*  edit  existing  data  */ 
{ 

if  (!flag[l])  /*  tow  data  does  not  exist  */ 

{ 

sprintf (textl, "Tow  data  has  not  been  set;  please"); 
sprintf (text2, "enter  new  data  or  get  from  file"); 
display_error (ERROR, textl, text2) ; 
cursor_of f () ; 
get_tow_menu (shiptype) ; 
return; 
) 

flag [2] =0; 
} 

else  if  (choice==2)     /*  retrieve  data  file  */ 
( 

flag[l]=0; 
flag(2]=l; 
} 

else  if  (choice<0)      /*  ESCAPE  key  pressed  */ 
{ 

get_options (1) ; 
return; 
) 

if  (!flag[l])      /*  tow  data  not  set  */ 
{ 

/*  display  options  with  popup  menu;  get  response  */ 

clear (startrow+5, startcol+1, endrow-1, endcol-1, REV_VID) ; 

start  =■  (endcol-startcol-strlen  (header)  )  /2  +  started; 

write_string(startrow+8, start, header, REV_VID) ; 

start  -  (endcol-startcol-strlen  (type  (0]  )) /2  +  started; 

* shiptype  -  popup (type, "123", 3, startrow+10, start-2, NONE, REV_VID, 0) 
}  /*****  ***/ 

if  (*shiptype»=0)   /*  ship  */ 
/  /*****  ***/ 

/*  get  ship  tow  parameters  from  user  */ 

status=«get_tow_data  (flag,  hull_no,  class,  tow_data,  ship_data)  ; 
if  (status<0) 
{ 

cursor_of f () ; 

get_tow_menu (shiptype) ; 

return; 
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> 

if  (!flag[l)  &&  !flag[2])    /*  ship  data  not  set  */ 
( 

/*  read  string  data  from  file  */ 

in  =  f open ("tab_str.dat",  "r")  ; 

read_table (in, table, 80) ;   /*  80  is  length  of  cursor  highlight  */ 

/*  (full  screen)  */ 

fclose (in) ; 

/*  display  Table  G-2,  get  user's  choice,  and  read  data  */ 
display_tab_g2 (table, ship_data,  hull_no,  class)  ; 

cls(); 

} 

/*  display  data  from  selected  ship  class  */ 
display_data (hull_no, class, tow_data,  ship_data) ; 

/*  compute  mean  towline  tension,  display  results  &  summary  */ 
mean  tension (tug_data, tow_data, ship_data, hull_no,  class,  Stension) ; 

/*  evaluate  tug  */ 

tugpull (*shiptype, Stension) ; 

flag[l]=l; 
get_options (2) ; 
return; 
i  /***********/ 

else  if  (*shiptype==l)   /*  drydock  */ 

/*  get  drydock  type  */ 

status=get_dock (flag, &docktype, dock_data, hull_no, tow_data) ; 

if  (status<0) 

( 

cursor_of f ( ) ; 

get_tow_menu (shiptype) ; 

return; 
} 

if(!flag[l]  &&  !flag[2])  /*  tow  data  not  set  */ 

{ 

/*  get  hull  condition  */ 
get_hull_cond(tow_data) ; 

/*  get  tow  speed  and  wind  speed  */ 
get_dock_towdata (tow_data) ; 

/*  estimate  displacement  for  extreme  tension  calculations  */ 
est_disp(0, dock_data,  tow_data)  ; 
) 

/*    display  summary;  give  edit  option  */ 
dock_summary (fidocktype, dock_data, tow_data, hull_no) ; 
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/*  compute  resistance  and  display  results  */ 

get_dock_resist (hull_no, tug_data, dock_data, tow_data, Stension)  ; 

/*  evaluate  tug  */ 

tugpull (*shiptype, ^tension) ; 

flag[l]=l; 
get_options (2) ; 
return; 

j  /*********/ 

else  if  (*shiptype==2)   /*  barge  */ 
/  /*********/ 

/*  enter  barge  data  &  compute  resistance  */ 
status=get_barge_resist (flag, hull_no, tug_data, tow_data, 
barge_data, fitension) ; 

if  (status<0) 
{ 

cursor_of f ( ) ; 

get_tow_menu (shiptype) ; 

return; 
} 

/*  evaluate  tug  */ 

tugpull (*shiptype, Stension) ; 

flag[l]=l; 

get_options (2) ; 

return; 
} 

else 
{ 

get_options (1) ; 

return; 
} 
} 

/•♦a************************************************************ 
This  function  checks  for  the  presence  of  all  necessary  data 
files  by  repeated  calls  to  check_file()  before  continuing 
with  program  execution. 

void  initial () 
{ 

FILE  *in; 

char  fname[13]; 

char  device [13] ; 

sprint f (fname, "DEVICE.DAT") ; 
check_f ile (fname) ; 

in=f open (fname, "r") ; 

f gets (device, 13, in) ;     /*  read  graphics  driver  filename  */ 
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f close (in) ; 

check_f ile (device) ; 

sprintf (fname, "HAL0104 . FNT" ) ; 
check_f ile (fname) ; 

sprintf (fname, "HALO105 .FNT" ) ; 
check_f ile (fname) ; 

sprintf (fname, "HALO106.FNT") ; 
check_f ile (fname) ; 

sprintf (fname, "HALO201 .FNT") ; 
check_f ile (fname)  ; 

sprintf (fname, "TAB_STR.DAT") ; 
check_f ile (fname) ; 

sprintf (fname, "TABLE.DAT") ; 
check_f ile (fname)  ; 

sprintf (fname, "DOCK_STR.DAT")  ; 
check_f ile (fname)  ; 

sprintf (fname, "DRYDOCK.DAT") ; 
check_f ile (fname) ; 

sprintf (fname, "RS_WVHT.DAT") ; 
check_f ile (fname)  ; 

sprintf (fname, "RH_DISP.DAT"); 
check_f ile (fname) ; 

sprintf (fname, "TOGPULL.DAT") ; 
check_f ile (fname) ; 

sprintf (fname, "CURVE. TAB") ; 
check_f ile (fname) ; 
» 


/•••a*********************************************************** 
This  function  checks  for  the  presence  of  a  given  file.  If  not 
present,  program  execution  is  terminated  with  error  code  1. 

a***************************************************************/ 

void  check_f ile (fname) 

char  * fname; 

( 

FILE  *in; 

int  i ; 

char  textl[37], text2[37] ; 

if  (  (in-fopen (fname, "r") ) --NULL) 
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{ 

sprintf (text 1, "Missing  file  %s",fname); 

sprintf (text2, "~=>  please  reload  file  from  disk  <==") 

display_error (ERROR, textl,  text2)  ; 

exit (1) ; 
} 
f close (in) ; 
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/•a********************************************************************** 
File:  title. c 
Author:  Todd  J.  Peltzer 
Last  update:  30  April  198  9 

This  file  contains  the  function  title  ()  which  uses  Halo  88  (tm) 
graphics  to  display  the  opening  screen  of  "TOWCALC" . 

Functions : 
title  () 

finclude  "stdio.h" 


void  title () 

{ 

FILE  *in; 

char  device [13]; 


/*  variable  for  device  driver  name  */ 


union  inkey  { 
char  ch[2] ; 
int  i; 

>  c; 


static  char  f ont [ ]  =  "HAL0201 .FNT"; 
static  char  f ont2  [  ]  =  "HAL0104 .FNT"; 
static  char  f ont3 [ ]  =  "HAL0105 .FNT" ; 
static  char  f ont4 [ ]  =  "HALO106.FNT"; 


/*  Font  file  name  */ 

/*  Font  file  name  */ 

/*  Font  file  name  */ 

/*  Font  file  name  */ 


static  char  string [] 
static  char  string2[] 
static  char  string3[] 
static  char  string4[] 
static  char  string5[] 


■  "SUPSALV"; 
"TOWING  CALCULATIONS"; 
"A  COMPUTATIONAL  TOOL  FOR"; 
"OPEN  OCEAN  TOWING"; 
"Press  any  key  to  continue", 


/*  Text  string  */ 

/*  "        */ 

/*  "       V 

/*  "       */ 

/*  "       V 


float  height  =  100.0; 

float  asp  =  1.0; 

int  path  =0; 

float  iheight; 

float  width; 

float  offs«; 

float  tx, ty; 

int  maxcolor; 

int  color; 

int  style  ■  1; 


/*  Stroke  text  height  */ 

/*  Stroke  text  aspect  ratio  */ 

/*  Stroke  text  path 

/*  Inquired  height  of  text  string  */ 

/*  Inquired  width  of  text  String  */ 

/*  Offset  for  descenders  */ 

/*  X  and  y  coordinate  text  cursor  location  */ 

/*  Maximum  color  variable  */ 

/*  Color  variable  for  screen  clear  */ 

/*  Initialize  the  style  for  hatchstyle  */ 


float  xl,yl,x2,y2; 
float  vxl , vyl , vx2 ,  vy2 ; 
float  x,y; 
int  i, j,n; 
int  mode ; 


/*  World  coordinates  values  */ 

/*  Viewport  coordinates      */ 

/*  Graphics  cursor  position  */ 

/*  Counter  Variables  */ 

/*  Graphics  mode  */ 


int  border, back; 


/*  Viewport  background  and  border  values  */ 


in  -  fopen("device.dat", "r"); 
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n=fscanf (in, "%s\n", device) ;  /*  read  device  driver  from  file  */ 

n=f scanf (in, "%d\n", Smode) ;  /*  read  graphics  mode  from  file  */ 

f close (in) ; 

setdev (device) ;  /*  Initialize  the  graphics  device  */ 

initgraphics (  Smode  ) ; 

inqorange (Smaxcolor) ;  /*  Inquire  maximum  color  */ 

xl  =  0.0; 

yl  =  0.0; 

x2  =  1000.0; 

y2  =  1000.0; 

setworld(Sxl, Syl, Sx2, Sy2) ; 

vxl  =0.1, 

vyl  =0.1, 

vx2  =  0 . 9  j 

vy2  =  0 . 9  j 

border  =  maxcolor; 

back  =0; 

set viewport (Svxl, &vyl , &vx2, Svy2, Sborder, Shack) ; 

/*****************•******************************************************* 

*  Display  the  first  text  string  * 
a*************************************************************************/ 

set font (font) ; 

setstclr (Smaxcolor, Smaxcolor) ; 

setstext (Sheight, Sasp, Spath) ; 

inqstsize (string, Siheight, Swidth, Soff se) ; 

tx  =  (x2-width)/2; 

ty  =  700.0; 

movtcurabs (&tx, &ty) ; 

stext (string) ; 

/A************************************************************************ 

*  Display  the  second  text  string  * 
a*************************************************************************/ 

style  =  1; 

setfont (font2) ; 

setstclr (Smaxcolor, Smaxcolor) ; 

setstext (Sheight, Sasp, Spath) ; 

inqstsize (string2, Siheight, Swidth, Sof fse) ; 

tx  =  (x2-width) /2; 

ty  =  500.0; 

movtcurabs (Stx, Sty) ; 

stext (string2) ; 

/A************************************************************************ 

*  Display  the  third  text  string  * 

A*************************************************************************/ 

style  =  1; 
height  =  50.0; 
setfont (font3) ; 
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setstclr (Smaxcolor, Smaxcolor) ; 

setstext (Sheight, Sasp, &path) ; 

inqstsize (string3, Siheight, Swidth, Sof fse) ; 

tx  =  (x2-width)/2; 

ty  =  350.0; 

movtcurabs  (&tx,  Sty)  ; 

stext (string3) ; 

/************************************************************************* 

*  Display  the  fourth  text  string  * 
••I************************************************************************/ 

inqstsize (string4 , Siheight, Swidth, &of f se) ; 
tx  =  (x2-width)/2; 
ty  «  250.0; 
movtcurabs (&tx, &ty) ; 
stext (string4 ) ; 

/••A********************************************************************** 

*  Display  the  fifth  text  string  * 
**************************************************************************/ 

style  =  1 ; 

height  =  40.0; 

set font (font4) ; 

setstclr (Smaxcolor, Smaxcolor) ; 

setstext (Sheight, &asp, fipath) ; 

inqstsize (strings, iiheight, &width, &of fse) ; 

tx  =  (x2-width)/2; 

ty  =  75.0; 

movtcurabs (itx, &ty) ; 

stext (string5) ; 

deltcur () ; 

/*  wait  for  keystroke,  then  exit  */ 

while  (1) 

{ 

c.i  =  bioskey(O);        /*  read  the  key  */ 

if  (c.ch[0])  /*  key  is  a  normal  key  */ 

{ 

break; 
} 

else  /*  key  is  a  special  key  */ 

I 

break; 
} 
} 

closegraphics () ;  /*  Close  graphics  */ 
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/A*************************************************************************** 
File:  tug.c 

Author:  Todd  J.  Peltzer 
Last  update:  30  April  198  9 

This  file  contains  the  functions  which  support  the  "Select  Tug" 
option  in  the  main  program. 

Functions : 
get_tug ( ) 
get_tug_data ( ) 
get_tug_f ile ( ) 
get_f name ( ) 
save_tug_f ile () 

♦include  "stdio.h" 
finclude  "dos.h" 
♦include  "keydef.h" 
♦include  " video. h" 

static  char  *menu[]  = 

{ 

"1)  Enter  new  data     ", 

"2)  Edit  existing  data", 

"3)  Retrieve  data  file" 

}; 

static  char  *labell[]  = 

{ 

"Options", 

"Retrieve  File", 

"Enter  name  of  tug  file", 

"to  retrieve  (8  char  max) :  " 
); 

static  char  *label[]  = 
1 

"TUG  DATA", 

"Class: ", 

"Hawser", 

"   diameter : " , 

"   scope : " , 

"Chain  pendant:", 

"   size:", 

"   scope:" 
>; 

static  char  *units[]  ■ 
{ 

"in", 

"ft", 

"in", 

"ft" 
}; 
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static  char  *footer[]  = 

{ 

"Please  enter  data.", 

"Is  all  data  correct?  (yes/no) : 

"Fl  Class  F2  Wire  scope", 

"F3  Chain  size  F4  Chain  scope", 

"  Press  INS  to  continue  ", 

"   Save  data  to  file?  (yes/no) : 

"  Enter  tug  file  name :  " 

>; 

char  *tug_menu [ ] =  { 
"ARS  38 
"ARS  50    ", 
"ATS  1 
"T-ATF  166" 

>; 

static  char  choice [4]; 
static  char  fname[9]; 

typedef  struct 
{ 

int  start col; 

int  ended; 
}  data  box; 


static  data  box 
( 

{30,45}, 

input [ ] 

= 

/* 

tug 

V 

{35,41}, 

/* 

hawser  dia 

*/ 

{35,41}, 

/* 

hawser  scope 

*/ 

{35,41}, 

/* 

chain  size 

*/ 

{35,41}, 

/* 

chain  scope 

*/ 

{54,58}, 

/* 

yes/no  choice 

*/ 

{49,58} 

/* 

tug  file  name 

V 

}; 

int  get_tug_f ile ( )  ; 

void  get_tug_data ( ) , get_f name ( ) ; 

void  save_tug_f ile ( ) ; 

/********•**********•*****#**********•**************************•************ 
This  function  prompts  the  user  for  data  concerning  the  tug.  A  popup 
menu  is  used  to  select  the  tug  class;  hawser  diameter  is  selected  auto- 
matically based  on  this  choice.  Hawser  scope,  chain  size,  and  chain  scope 

are  all  input  by  the  user. 
•a***************************************************************************/ 

void  get_tug (tug, tug_data, flag) 
char  *tug; 
float  *tug_data; 
int  *flag; 

{ 
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FILE  *in,  *out; 
int  startrow»2; 
int  startcol=20; 
int  endrow=22; 
int  endcol=60; 

int  row, col, i, start, startl,  key; 

int  status, choicel; 

char  string [25]/ 

char  f name [13]; 

char  textl[39],  text2 [39] ;     /*  error  message  text  */ 

if  (!flag[0])  /*  tug  data  does  not  exist  */ 

{ 

/*  initialize  data  variables  to  zero  */ 

tug[0]  =  NULL; 

for  (i=0;  i<5;  i++) 
tug_data[i]  =  0.0; 
} 

/*  clear  background   */ 

clear ( start row+1, startcol+1, endrow-1, endcol-1, REV_VID) ; 

/*  write  header  */ 

write_header  (startrow,  started,  endcol,  label  [0]  ,  REV_VID)  ; 

/*  select  retrieve  file  or  enter  new  data  */ 

start  =  (endcol-startcol-strlen (labell [0] ) ) /2  +  startcol; 

write_string(startrow+8, start, labell [0] , REV_VID) ; 

start  =  (endcol-startcol-strlen (menu [0] )) /2  +  startcol; 

choicel  =  popup (menu, "123", 3, startrow+10, start-2, NONE, REV_VID, 0) ; 

if  (choicel==0)  /*  enter  new  data  */ 

{ 

clear (startrow+5, startcol+1, endrow-3, endcol-1, REV_VID) ; 
} 

else  if  (choicel==l)     /*  edit  existing  data  */ 
{ 

if  (!flag[0]) 
{ 

sprintf (text 1, "Tug  data  has  not  been  set;  please"); 
sprintf (text2, "enter  new  data  or  get  from  file"); 
display_error (ERROR, textl, text2) ; 
cursor_of f ( ) ; 

get_tug (tug, tug_data, flag) ; 
return; 
) 
} 

else  if  (choicel*=2)     /*  retrieve  data  from  file  */ 
{ 

status»get_tug_f ile (startrow, startcol, endrow, endcol, tug, tug_data, flag) 

if  (status<0) 

{ 
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curaor_of f () ; 

get_tug (tug, tug_data, flag) ; 
return; 
) 
) 

else  if  (choiceKO)     /*  ESCAPE  key  pressed  */ 
( 

get_options (0)  ; 
return; 
) 
clear ( start row+5, startcol+1, endrow-3, endcol-1, REV  VID) ; 

/*  write  data  labels  */ 

write_string(startrow+5, startcol+3, label ( 1] , REV_VID) ; 
write_string(startrow+7, startcol+3, label [2] , REV_VID) ; 
write_string(startrow+8, startcol+3, label [ 3] , REV_VID) ; 
write_string (startrow+10, startcol+3, label [4 ] , REV_VID) 
write_string(startrow+12, startcol+3, label [5] , REV_VID) 
write_string(startrow+13, startcol+3, label [6] , REV_VID) 
write_string(startrow+15, startcol+3, label [7] , REV_VID) 

/*  write  units  */ 

write_string(startrow+8, startcol  +  2  +  strlen (label [3] ) +2  +  7,  units [0]  ,  REV_VID)  ; 
write_string (startrow+10, startcol+2+strlen (label [3] )+2  +  7,  units [ 1]  ,  REV_VID)  ; 
write_string(startrow+13, startcol+2+strlen (label [ 3] ) +2+7, units [2] , REV_VID) ; 
write_string(startrow+15, startcol+2+strlen ( label [3] ) +2+7, units ( 3 ] , REV_VID) ; 

if  (choicel  — 1  |  |  choicel«2) 
{ 

/*  display  data  */ 

/*  tug  class  */ 

write_string(startrow+5, startcol+2+strlen (label [1] ) +2, tug,REV_VID) ; 

/*  hawser  diameter  */ 

sprint f (string, "%6. 2f ", tug_data [1] ) ; 

write_string(startrow+8, startcol+2+strlen (label [3] ) +2, string, REV_VID) ; 

/*  hawser  scope  *f 

sprintf (string, "%6 .Of ", tug_data [2 ) ) ; 

write_atring( startrow+10, startcol+2+strlen (label (3] )+2, string, REV_VID) ; 

/*  chain  pendant  size  */ 

sprintf (string, "%6. 2f ", tug_data [3 ] ) ; 

write_string(startrow+13, startcol+2+strlen (label [3] )+2, string, REV_VID) ; 

/*  chain  pendant  scope  */ 

sprintf (string, "%6.0f ", tug_data (4) ) ; 

write_string(startrow+15, startcol+2+strlen (label ( 3] ) +2, string, REV_VID) ; 
) 

else  if  (choicel~0) 
{ 

/*  write  footer  */ 

start  ■  (endcol-startcol-strlen  (footer  [0]  ))  /2  +  started; 

write_atring( endrow-3, start, footer [0] , REV_VID) ; 
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/*  cr*at*  normal  vid*o  box**  for  data  entry  * / 
vid_box(atartrow+10,  atartcoH-2  +  »trl*n  (lab*)l  (3)  )  +  2,  I)  . 
vid_box(atartrow+13, atartcol+2+atrl*n (lab*l (3) ) +2, 6) ; 
vid_box(atartrow+15,  atartool+2+atr  J -r,  M  ab*  ]  |;  )  /♦/,«.,  . 

|^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^hl.^^^^^l,^^l.| 

I  *  '/at  ui«r  input  */ 

|^>■f>■f>■>■>■^■<■-f^■f>■^t^^^■^■^■^^^>■^^^t■^^^^■^■^■^^^^■^^^^■^^^^^t.t.^^^^^l 

I "    g*t  tug  claaa  */ 

cur*or_off ( ) ; 

tug_data(0]  -  popup  (tug_m*nu,  "",  4  ,  atartrow+4,  atartcol+15,  311/ 

if  (tug_data(0]  «  AP338) 

f 

aprintf (tug, "AP3  38")/ 

writ*_atring(atartrow+5,  atartcol+2+atrl*n  (1  aba  1  f  1  J  M  2  ,  *  Uf,  REV  '/:,'>,  ; 

tug_data(l]  -  2.0; 

aprintf (atring,  "%i.2£",  tug_data [1]  )  ; 

writ*_atring(atartrow+8, at*rtcol+2+atrl*n (lab«l [3))+2,0tsi nq,  REV  VXD) ; 
} 
•la*  if  (tug_data[0]  ~  AP3  50) 

{ 

aprintf (tug, "AP3  50"); 

writ*_atring(atartrow+5,atartcol+2+atrl*n(lab*l [1J )+2,tuq,1MN    V1Q)  / 

tug_data[l]  -  2.^'-; 

aprintf  (atring,  *%$.2tm,  I  W?  data  fl])  ; 

writ*_atring(atartrow+8,  atartcol+2+atrl*n  (lab*l  [3] )  +2,  •trlflf,  REV  VXD)  ; 

I 

•la*  if  (tug_data(0)  ~  ATS1) 
I 

aprintf (tug, "ATS  1"); 

writ*_atring(atartrow+5,  atartcol+2+atrl*n  (lab*l  ( 1  ]  )+2,t\iq,  REV  IfXDJ  ; 

tug_data(l]  -  2.25; 

aprintf (atring, "%6. 2f ", tug_d«ta ( 1 ) ) ; 

writ*_*tring(atartrow+8,  atartcol+2+atr l«n  '  J  ab*J  f  "J  J  )  +2  ,  atr  i  rig,  P K7  7I!„  ; 
} 

•  la*  if  (tug_data(0]  --  TATTlff) 
( 

aprintf (tug, "T-ATF  166"); 

writ*_atring(atartrow+5, atartcol+2+atrl*n (l*b*l (1] ) +2, t  19, REV  VXD) ; 
tug_dat«[l]  -  2.2  5; 

aprintf (atring, "*6.2f ", tug_dat*[l] ) ; 

writ*_atring(atartrow+8,  atartcol+2+atrl*n  (lab,*l  [3]  )  +2,  atrirg, 
) 

•  la* 
( 

g*t_tug 'tug, tugdata, flag) ; 
return  ; 
) 

/*  gat  haw**i  acop*  */ 

g*t_tug_data  (2,  atartrow-f  10,  atartcol+2+atr l*n  (labal  (  3]  ;  «■>  ,  |  .-;,<     data))/ 

for  (i-0;  i<6;  i++) 

writ*_char  (atartrow-t-10,  atartcol+-2+atrl*n  ( lab*l  [  3]  )  +2  +  i,  '  '  ,  PE7_7ID)  ; 
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sprintf (string, "%6.0f ", tug_data [2] ) ; 

write_string(startrow+10, startcol+2+strlen (label [3] ) +2, string, REV_VID) 

/*  get  chain  pendant  size  */ 

get_tug_data (3, startrow+13, started +2 +strlen (label (3] ) +2,  tug,  tug_data) 

for  (i=0;  i<6;  i++) 

write_char (startrow+13, startcol+2+strlen (label [3] )+2  +  i,  '  ' , REV_VID)  ; 
sprintf (string, "%6.2f ", tug_data[3] ) ; 
write_string (startrow+13, startcol+2+strlen (label [3] ) +2, string, REV_VID) 

/*  get  chain  pendant  scope  */ 

get_tug_data (4, startrow+15, startcol+2+strlen (label (3] ) +2, tug, tug_data) 

for  (i=0;  i<6;  i++) 

write_char (startrow+15, startcol+2+strlen (label [3] )+2+i, '  ' , REV_VID) ; 
sprintf (string, "%6.0f ", tug_data [4]  )  ; 
write_string (startrow+15, startcol+2+strlen (label (3] ) +2, string, REV_VID) 


/*  erase  footer  */ 

start  =  (endcol-startcol-strlen (footer [0] )) /2  +  startcol; 

for  (i=0;  i<strlen  (footer  [0] )  ;  i++) 

write_char (endrow-3, start +i, '  ' ,REV_VID) ; 
} 

/*****************************************************************/ 

/*     prompt  user  for  confirmation  of  data;  give  edit  option      */ 
/••••a************************************************************/ 

start  =  startcol  +3; 

write_string (endrow-3, start, footer [ 1] , REV_VID) ; 

vid_box (endrow-3, start+strlen (footer [ 1] )  ,  4)  ; 

get_tug_data (5, endrow-3, start+strlen (footer (1] ) , tug, tug_data) ; 

/*  test  if  data  correct  */ 

if  (  choice [0] !='y'  &&  choice [0] !=' Y'  &&  choice [0] !=NULL  ) 

{ 

/*  erase  previous  message  */ 

start  =  startcol  +  3; 

for  (i=0;  i<strlen (footer [1] ) +4 ;  i++) 

write_char (endrow-3,  start +i,  '  ' ,REV_VID) ; 

/*  write  quit  message  */ 

start- (endcol-startcol-strlen (footer [4] )) /2  +  startcol; 

write_string (endrow, start, footer [4] ,REV_VID) ; 

/*  write  first  line  of  edit  "menu"  */ 

start=»  (endcol-startcol-strlen  (footer  [2]  )) /2  +  startcol; 

write_string( endrow-3, start, footer [2] ,REV_VID) ; 

/*  write  function  key  indicators  in  N0RM_VID  */ 

for(i=0;  i<2;  i++) 

{ 

write_char (endrow-3, start +i, footer [2] [i] ,NORM_VID) ; 

write_char (endrow-3, start+9+i, footer [2] [i+9] , N0RM_VID) ; 
> 
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/*  write  second  line  of  edit  "menu"  */ 

startl= (endcol-startcol-strlen (footer [3] )) /2  +  startcol; 

write_string(endrow-2, start 1, footer [3] , REV_VID) ; 

/*  write  function  key  indicators  in  NORM_VID  */ 

for(i-0;  i<2;  i++) 

{ 

write_char (endrow-2, start 1+i, footer [3] [i] ,NORM_VID) ; 

write_char(endrow-2, startl+14+i, footer [3] [i+14] ,NORM_VID) ; 
} 

/a**************************************************************/ 

/*  edit  data  */ 

/••a************************************************************/ 

/*  move  cursor  to  Fl  highlight  */ 

cursor_on () ; 

goto_xy (endrow-3, start) ; 

/*  get  user's  choice  */ 

while  (1) 

{ 

key=get_special () ; 

/a*************/ 

if  (key==Fl)     /*  tug  class   */ 

cursor_of f ; 

tug_data[0]  =  popup (tug_menu, "",4, startrow+4, startcol +15, SINGLE, REV_VID, 0) 

if  (tug_data{0]  —  ARS38) 

{ 

for  (i=0;  i<10;  i++) 

write_char (startrow+5, startcol+2+strlen (label [1] ) +2+i, '  ' ,REV_VID) ; 

sprintf (tug, "ARS  38"); 

write_string (startrow+5, startcol+2+strlen (label [1] ) +2, tug, REV_VID) ; 

tug_data[l]  =  2.0; 

sprintf (string, "%6. 2f ", tug_data [1] ) ; 

write_string(startrow+8, startcol+2+strlen (label [3] ) +2, string, REV_VID) ; 

/*  check  data  for  consistency  */ 

if  (tug_data[2]>2100) 

{ 

sprintf (textl, "Maximum  hawser  length  for  this  class"); 

sprintf (text2, "is  2100  ft--please  enter  new  length"); 

display_error (ERROR, textl, text2) ; 

vid_box(atartrow+10, startcol+2+strlen (label [3] ) +2, 6) ; 

get  tug  data (2, startrow+10, startcol+2+strlen (label [3] ) +2,  tug, tug_data) 

for  (i=0;  i<6;  i++) 

write_char (startrow+10, startcol+2+strlen (label (3] )+2  +  i,  '  ' , REV_VID) ; 
sprintf (string, "%6.0f ", tug_data(2] ) ; 

write_string (startrow+10, startcol+2+strlen (label [3] ) +2, string, REV_VID) 
) 
> 

else  if  (tug_data[0]  —  ARS50) 
{ 
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for  (i=0;  i<10;  i++) 

write_char (startrow+5, startcol+2+strlen (label [1] ) +2+i, '  ' , REV_VID) ; 
sprintf (tug, "ARS  50"); 

write_string( startrow+5, start col+2+strlen (label [1] ) +2, tug, REV_VID) ; 
tug_data(l]  =  2.25; 

sprintf (string, "%6. 2f ", tug_data [1] ) ; 
write_string (startrow+8, startcol+2+strlen (label [3] ) +2, string, REV_VID) ; 

/*  check  data  for  consistency  */ 

if  (tug_data(2]>3000) 

{ 

sprintf (text 1, "Maximum  hawser  length  for  this  class"); 

sprintf (text2, "is  3000  ft — please  enter  new  length"); 

display_error (ERROR, textl, text2) ; 

vid_box (startrow+10, start col+2+strlen (label [3] ) +2, 6)  ; 

get_tug_data (2, startrow+10, startcol+2+strlen (label [3] ) +2, tug, tug_data) 

for  (i=0;  i<6;  i++) 

write_char (startrow+10, startcol+2+strlen (label [3] )+2+i, '  ' ,REV_VID) ; 

sprintf (string, "%6. Of", tug_data [2] ) ; 

write_string (startrow+10, startcol+2+strlen (label [3] ) +2, string, REV_VID) 
> 
} 

else  if  (tug_data[0]  ==  ATS1) 
{ 

for  (i=0;  i<10;  i++) 

write_char( startrow+5, startcol+2+strlen (label [1] )+2+i, '  ' ,REV_VID) ; 
sprintf (tug, "ATS  1"); 

write_string( startrow+5, startcol+2+strlen (label [1] ) +2, tug, REV_VID) ; 
tug_data[l]  =  2.25; 

sprintf (string, "%6.2f ", tug_data [1] ) ; 
write_string (startrow+8, startcol+2+strlen (label [3] ) +2, string, REV_VID) ; 

/*  check  data  for  consistency  */ 

if  (tug_data[2]>3000) 

{ 

sprintf (textl, "Maximum  hawser  length  for  this  class"); 

sprintf (text2, "is  3000  ft — please  enter  new  length"); 

display_error (ERROR, textl, text2) ; 

vid_box (startrow+10, startcol+2+strlen (label [3] ) +2, 6) ; 

get_tug_data (2, startrow+10, startcol+2+strlen (label [3] ) +2, tug, tug_data) 

for  (i=0;  i<6;  i++) 

write_char (startrow+10, startcol+2+strlen (label [3] )+2+i, '  ' ,REV_VID) ; 

sprintf (string, "%6.0f ", tug_data [2] ) ; 

write_string (startrow+10, startcol+2+strlen (label [3] ) +2,  string, REV_VID) 
> 
} 

else  if  (tug_data[0]  —  TATF166) 
{ 

for  (i=0;  i<10;  i++) 

write_char( startrow+5, startcol+2+strlen (label [1] )+2+i, '  ' ,REV_VID) ; 
sprintf (tug, "T-ATF  166"); 

write_string (startrow+5, startcol+2+strlen (label [1] ) +2, tug, REV_VID) ; 
tug_data[l]  =  2.25; 
sprintf (string, "%6 . 2f ", tug_data [1] ) ; 
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write_string(startrow+8, atartcol+2+strlen (label [3] ) +2, atring, REV  VID) ; 

/*  check  data  for  consistency  */ 

if  (tug_data[2]>2500) 

{ 

aprintf (text 1, "Maximum  hawser  length  for  thia  class"); 

sprintf (text2, "is  2500  ft — please  enter  new  length"); 

diaplay_error (ERROR, textl, text2)  ; 

vid_box (atartrow+10, startcol+2+strlen (label [3] ) +2, 6)  ; 

get_tug_data (2, startrow+10, atartcol+2+strlen (label [3] ) +2,  tug,  tug_data) 

for  (i=0;  i<6;  i++) 

write_char (startrow+10, startcol+2+atrlen (label [3] )+2+i, '  ' , REV_VID) ; 
sprintf (string, "%6. Of ", tug_data [2] ) ; 

writa_atring (atartrow+10, atartcol+2+strlen (label [3] ) +2, string, REV_VID) 
} 
} 

cursor_on () ; 

goto_xy (endrow-3,  start) ; 
i  /**************/ 

else  if  (key==F2)    /*  wire  scope  */ 

vid_box (startrow+10, atartcol+2  +  strlen (label [3] ) +2,  6)  ; 

get_tug_data (2, startrow+10, atartcol+2+strlen (label [3] ) +2, tug, tug_data) ; 

for  (i=0;  i<6;  i++) 

write_char (startrow+10, atartcol+2+strlen (label [3] ) +2+i, '  ' , REV_VID) ; 
aprintf (atring, "%6.0f ", tug_data [2] ) ; 

write_string (startrow+10, startcol+2+atrlen (label [3] ) +2, string, REV_VID) ; 
cursor_on ( ) ; 

goto_xy (endrow-3,  start+9)  ; 
\  /**************/ 

else  if  (key==F3)   /*  chain  size  */ 

vid_box(startrow+13, startcol+2+strlen (label [3] )+2, 6) ; 

get_tug_data (3, atartrow+13, atartcol+2+strlen (label [3] ) +2, tug, tug_data) ; 

for  (i=0;  i<6;  i++) 

write_char(startrow+13, startcol+2+strlen (label [3] )+2  +  i,  '  '  , REV_VID) ; 
sprintf (string, "%6. 2f ", tug_data [3]  )  ; 

write_string(startrow+13, startcol+2+strlen (label [3] )+2, string, REV_VID) ; 
cursor_on () ; 
goto_xy (endrow-2,  start 1) ; 

else  if  (key==F4)    /*  chain  scope  */ 
/  /a**************/ 

vid_box (start row+15, start col+2+strlen (label [3] )+2, 6) ; 

get_tug_data(4, startrow+15, startcol+2+strlen (label [3] ) +2, tug, tug_data) ; 

for  (i»0;  i<6;  i++) 

write_char (startrow+15, startcol+2+strlen (label [3] )+2+i, '  ' , REV_VID) ; 
sprintf (string, "%6.0f ", tug_data [4] ) ; 

write_atring(atartrow+15, startcol+2+atrlen (label [3] )+2, string, REV_VID) ; 
cursor_on () ; 
goto_xy (endrow-2,  start 1  +  14)  ; 

else  if  (key=>=INSERT)    /*  quit  edit  mode  */ 
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/*  erase  menu  */ 

for  (i«0;  Kstrlen  (footer  [2]  )  ;  i++) 

write_char (endrow-3, start+i,  '  ' , REV  VID); 
for  (i=0;  i<strlen (footer [3 ]) ;  i++) 

write_char (endrow-2, startl+i, '  ' , REV_VID) ; 

/*  erase  message  */ 

start  =  (endcol-startcol-strlen  (footer  (4]  ))  /2  +  started; 

for  (i=0;  Kstrlen  (footer  [4  ])  ;  i+  +  ) 

write_char (endrow, start+i, 205, REV_VID) ; 
break; 
} 
} 
cursor_of f ()  ; 
) 

else       /*  data  is  correct;  no  editing  necessary  */ 
{ 

/*  erase  previous  message  */ 

start  =  startcol  +3; 

for  (i=0;  Kstrlen  (footer  [1] ) +4  ;  i++) 

write_char (endrow-3, start+i,  '  '  ,REV_VID) ; 
} 

/*  prompt  to  save  data  to  file  */ 
start  =  startcol  +  3; 

write_string (endrow-3 , start, footer [ 5]  ,  REV_VID)  ; 
vid_box (endrow-3, start+strlen (footer [ 5] )  ,  4) ; 
get_tug_data (5, endrow-3, start+strlen (footer [5] ) , tug, tug_data) ; 

if  (  choice [0] !-'n'  &&  choice [0] !=' N'  )     /*  save  data  */ 
{ 

/*  erase  previous  message  */ 

start  =  startcol  +3; 

for  (i-0;  Kstrlen  (footer  [  1  ]) +4  ;  i++) 

write_char (endrow-3, start+i, '  ' ,REV_VID) ; 

save_tug_f ile (startrow, startcol, endrow, endcol, tug, tug_data) ; 
} 
flag[0]=l;  /*  set  flag  for  presence  of  tug  data  */ 


} 


This  function  gets  the  user' s  input  for  the  data  requested  in  the 
function  get  tug ( ) .  Uses  screen  getstringO  for  screen  I/O.  Some  data 
checking  is  performed  for  each  data  type. 
*************#***************************************•***#*******************/ 

void  get_tug_data (i, row, col, tug,  data) 

int  i ; 

int  row; 

int  col; 

char  *tug; 

float  *data; 

I 

int  nbr;  /*  required  arg  for  stofa()        */ 

int  status;  /*  takes  return  value  for  stof a ( )  */ 
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char  string[24];  /*  input  string  */ 

char  textl [39],  text2[39];  /*  error  message  text  */ 

int  j,  k;  /*  counters  */ 

int  length; 
char  ch; 

cursor_on();  /*  turn  on  cursor  */ 

goto_xy (row, col) ;  /*  move  cursor  to  start  of  box     */ 

/*  get  user  input  */ 

screen_getstrg (i, row, col, string, NORM_VID, input) ; 

if  (i>l  &&  i<5) 
{ 

/*  check  for  valid  numeric  input  */ 

for  (k=0;  k<strlen (string) ;  k++) 

{ 

if  (  string [k]==' .'  )  ; 

else  if  (string[k]<'0'  ||  string[k] >' 9' ) 

{ 

sprintf (text 1, "Invalid  entry;  try  again"); 
display_error (ERROR, textl , "  " ) ; 
vid_box (row, col, 6) ; 
get_tug_data (i, row, col, tug, data) ; 
return  ; 
) 
} 

/*  if  input  string  contains  valid  numbers  only,  convert  string  to  float  */ 
status  =  stof a (string, Sdata [i] , &nbr, 1) ; 
> 

else    /*  i==5  */ 
{ 

strcpy (choice, string) ; 
} 

/•a***********************************************/ 

/*  check  data  for  consistency         */ 

/•a***********************************************/ 

if  (i=2)     /*  check  hawser  scope  */ 
{ 

if  (data[i]<-0.0) 
( 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR, textl , "  " ) ; 

vid_box (row, col, 6) ; 

get_tug_data (i, row, col, tug,  data) ; 

return  ; 
) 

if  (data[i]<1000) 
{ 

sprintf (textl, "No  extreme  tension  data  for  scopes"); 

sprintf (text2, "less  than  1000'  --  please  try  again"); 

display_error (ERROR, textl, text2)  ; 

vid  box (row, col, 6) ; 
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get_tug_data (i, row, col, tug, data) ; 

return; 
} 

if  (data[0]==ARS38  &&  data ( i] >2100) 
{ 

sprintf (textl, "Maximum  hawser  length  for  this  class") 

sprintf (text2, "is  2100  ft — please  try  again"); 

display_error (ERROR, textl, text2) ; 

vid_box (row, col, 6) ; 

get_tug_data (i, row, col, tug, data) ; 

return; 
I 
if  (  (data[0]==ARS50  ||  data [0] ==ATS1)  &&  data [i] >3000) 

{ 

sprintf (textl, "Maximum  hawser  length  for  this  class") 

sprintf (text2, "is  3000  ft — please  try  again"); 

display_error (ERROR, textl, text2) ; 

vid_box (row, col, 6) ; 

get_tug_data (i, row, col, tug,  data) ; 

return; 
} 

if  (data[0]==TATF166  &&  data [ i] >2500) 
{ 

sprintf (textl, "Maximum  hawser  length  for  this  class") 

sprintf (text2, "is  2500  ft — please  try  again"); 

display _error (ERROR, textl, text2) ; 

vid_box (row, col, 6) ; 

get_tug_data(i, row, col, tug, data) ; 

return; 
} 
} 

if  (i==3)     /*  check  chain  size  */ 
{ 

if  (data[i]<0  ||  data (i]>20 .0) 
{ 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR, textl, "  ") ; 

vid_box (row, col, 6) ; 

get_tug_data (i, row, col, tug, data) ; 

return  ; 
> 
} 
if  (i-»4)     /*  check  chain  scope  */ 

{ 

if    (data[i]<0) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 

display _error (ERROR, textl ,  "  " )  ; 

vid_box (row, col, 6) ; 

get_tug_data (i, row, col, tug, data) ; 

return  ; 
) 

else  if  (data[i]>500.0) 
{ 
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sprintf (textl, "Scope  of  chain  is  unusually  large"); 

sprintf (text2, "=>please  check  this  entry<="); 

display_error (WARN, textl, text2) ; 

vid_box (row, col, 6) ; 

get_tug_data (i, row,  col,  tug,  data)  ; 

return  ; 


} 


cursor_of f ( ) ; 
goto_xy (0,0); 


) 


/A*************************************************************** 

This  function  retrieves  tug  data  from  a  user  specified  file, 
•••a*************************************************************/ 

get  tug  file (startrow, startcol, endrow, endcol, tug, tug_data, flag) 

int  startrow, startcol; 

int  endrow, endcol; 

char  *tug; 

float  *tug_data; 

int  *flag; 

{ 

FILE  *in; 

char  fname [13]; 

char  inline [81]; 

char  textl [39] , text2(39] ; 

int  i, j , status, nbr; 

float  array [2]; 

int  start; 

start  =  (endcol-startcol-strlen (labell [ 1] ) ) /2  +  startcol; 
write_string(startrow+8, start, labell [1] , REV_VID) ; 
for  (i=0;  i<2;  i++)      /*  write  prompt  */ 
{ 

start  =  startcol+3; 

write_string(startrow+10+i, start, labell [i+2] , REV_VID) ; 

} 

vid_box ( start row+11, start+strlen (labell [3] ) , 9) ; 

sprintf (textl, "Type  ' Q'    to  quit") ; 

start  »  (endcol-startcol-strlen (textl) ) /2  +  startcol; 

write_string(endrow-3, start, textl, REV_VID) ; 

get_fname (6, 0, startrow+11, startcol+3+strlen (labell [3] ) , fname) ; 

/*  check  for  quit  option  */ 

if  (fname  [0]«' Q'  ) 

{ 

cursor_of f () ; 

goto_xy (0,0); 

return  (-1) ; 
} 

in=f open (fname, "r") ; 
if  (in»-NULL) 
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sprintf (textl, "Can' t  open  file  %s",fname); 

display_error (ERROR, textl, "  ") ; 

clear (startrow+8, startcol+1, endrow-3, endcol-1, REV_VID) ; 

get_tug_f  ile  (startrow,  started,  endrow,  endcol,  tug,  tug  data,  flag)  ; 

return  (0)  ; 


} 

else 

{ 


/*  read  data  from  file  */ 

fgets (inline, 81, in) ; 

strstrip (inline) ; 

if  (!  (strncmp( inline,  "!  Tug  data  file", 15))) 

{ 

fgets (inline, 81, in) ; 

fgets (inline, 81, in) ; 

strncpy (tug, inline, 15) ; 

strstrip (tug) ; 

/*  test  for  tug  type,  assign  value  to  tug_data[0]  */ 
if  ( ! (strnemp (tug, "ARS  38", 6))) 

tug_data[0] =0; 
else  if  (! (strnemp (tug, "ARS  50", 6))) 

tug_data[0] =1; 
else  if  (! (strnemp (tug, "ATS  1",5))) 

tug_data [0]=2; 
else  if  (! (strnemp (tug, "T-ATF  166", 9))) 

tug_data[0]=3; 
else 
{ 

sprintf (textl, "Tug  type  in  file  is  not  in  data  base") ; 

sprintf (text2, "==>  please  try  again  <=="); 

display_error (ERROR, textl, text2) ; 

get_tug_f ile (startrow, startcol,  endrow, endcol,  tug,  tug_data,  flag)  ; 

return  (0) ; 
> 

/*  read  remaining  data  */ 
for  (i«=0;  i<4;  i++) 
{ 

fgets (inline, 81, in) ; 

fgets (inline, 81, in) ; 

status—stofa (inline, array, Snbr, 1) ; 

tug_data [i+1] =array [0] ; 
} 
f close (in) ; 
} 

else 
{ 

sprintf (textl, "%s  is  not  a  tug  data  f ile ! ", fname) ; 
display_error (ERROR, textl, "  ") ; 

clear (startrow+8, startcol+1, endrow-3, endcol-1, REV_VID) ; 
get_tug_f ile (startrow, startcol, endrow, endcol,  tug,  tug_data,  flag) ; 
return  (1) ; 
) 
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I 

return (0) ; 


This  function  gets  the  filename  from  the  user. 

***************************************************************** . 

void  get_fname (i, type, row, col, fname) 

int  i; 

int  type; 

int  row; 

int  col; 

char  * fname; 

{ 

char  textl [39] , text2 (39] ;   /*  error  message  text  */ 

int  j,  k-0;  / *  counters  */ 

char  ch; 

cursor_on();  /*  turn  on  cursor  */ 

goto  xy (row, col);  / *  move  cursor  to  start  of  box     */ 

/*  get  user  input  */ 

screen_getstrg(i, row, col, fname, NOPM_VID, input) ; 

strstrip ( fname) ; 

/*  check  for  quit  option  */ 

if  (fname(0]— 'Q'  ) 

( 

cursor_of f () ; 

goto_xy (0,0); 

return  ; 
) 

/ *  check  for  valid  filename  * / 

while  (  (ch-fname(k) )  !-  NOLL  ) 
( 

if  (  (ch>-'a'  44  ch<-'z')   ||   (ch>-'A'  44  ch'-'Z') 

II  (ch>-'0'  44  ch<-' 9' )  ||  ch  —  '_'  ||  ch  —  '-') 
1 

k++; 

continue; 
> 

els* 
{ 

sprintf (textl, "File  name  contains  invalid  characters"); 
sprintf  (t*xt2,  "—>  please  try  again  -'--"); 
display_error (ZPPOP , textl , text2) ; 
vid_box (row, col, 9) ; 
get_f name ( i, type, row, col, fname^ ; 
return  ; 
} 
) 


155 


if  (type=-0)  /*  tug  */ 

{ 

sprintf (toxtl, "%s .tug", fname) ; 

slctouc (text 1 , text2 ) ; 

strncpy (fname, text2, 12) ; 

strstrip (fname)  ; 
} 

else  /*  tow  */ 

{ 

sprintf (textl, "%s .tow", fname) ; 

slctouc (textl, text2)  ; 

strncpy (fname, text 2, 12) ; 

strstrip (fname) / 
) 

cursor_of f ( ) ; 
goto_xy (0, 0) ; 


} 


/••a************************************************************* 

This  function  writes  the  tug  data  to  a  user  specified  file, 
•a***************************************************************/ 

void  save_tug  file (startrow, startcol, endrow, endcol, tug, tug_data) 

int  startrow, startcol , endrow, endcol ; 

char  *tug; 

float  *tug_data; 

{ 

FILE  *out; 

char  fname [13]; 

char  string[25]; 

char  textl [39] ; 

int  start; 

/*  prompt  for  file  name  */ 

start  =  startcol  +  3; 

write_string (endrow-3, start, footer [6] , REV_VID) ; 

vid_box (endrow-3, start+strlen (footer [ 6] ) +3, 9) ; 

get_fname (6,0, endrow-3, start+strlen (footer [6] ) +3, fname) ; 
out=f open (fname, "w") ; 

if  (out—NULL) 
{ 

sprintf (textl, "Can' t  open  file  %s", fname); 

display _error (ERROR, textl, "  ") ; 

save_tug_file (startrow, startcol, endrow, endcol, tug, tug_data) ; 

return; 
) 

else 
{ 

/*  write  data  to  file  */ 

fprintf (out, " !  Tug  data  file\n"); 

fprintf (out, " !  Tug  class :\n"); 

fprintf (out, "%s\n",  tug)  ; 
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fprintf (out, " !  Hawser  diameter  (inches) : \n" ) ; 
sprintf (string, "%- . 2f \n", tug_data [ 1 ] ) ; 
fprintf (out, "%s", string) ; 

fprintf  (out, " !  Hawser  scope  (feet)  : \n")  ; 
sprintf (string, "%-. If \n", tug_data [2] ) ; 
fprintf (out, "%s", string)  ; 

fprintf (out, " !  Chain  pendant  diameter  (inches) : \n") ; 
sprintf (string, "%- . 2f \n", tug_data [3] ) ; 
fprintf (out, "%s",  string)  ; 

fprintf (out, " !  Chain  scope  (f eet)  :\n")  ; 

sprintf (string, "%-. 2f \n", tug_data [4 ] ) ; 

fprintf (out, "%s", string) ; 
} 
f close (out) ; 
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File:  tow.c 

Author:  Todd  J.  Peltzor 

Last  update:  17  April  1989 

This  file  contains  functions  which  support  the  option  "Select  Tow" 
in  the  main  program. 

Functions : 

get_tow_data ( ) 
get_data ( ) 
get_ship_file () 
save_ship_f ile ( ) 

♦include  "stdio.h" 
♦include  "dos.h" 
♦  include  "Jceydef.h" 
♦include  "video. h" 

static  char  *label[]  = 

{ 

"TOW  DATA", 

"Hull  no:", 

"Full  load  displacement:", 

"Tow  speed:", 

"Max  expected  wind  spd:", 

"Rel  wind  direction:", 

"Propeller  status:" 

}; 

static  char  *labell(]  ■ 

{ 

"Options", 

"Retrieve  File", 

"Enter  name  of  tow  file", 

"to  retrieve  (8  char  max) :  " 

}; 

static  char  *units [ ]  = 
{ 

"tons", 

"kts", 

"Jets", 

"deg" 

>; 

static  char  *footer[]  = 

{ 

"Please  enter  data.", 

"Is  all  data  correct?  (yes/no):  ", 

"Fl  Hull  F2  Disp  F3  Tow  F4  Wind", 

"F5  Rel  wind  F6  Prop  status", 

"  Press  INS  to  continue  ", 
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"   Save  data  to  file?  (yes/no) :  ", 
"  Enter  tow  file  name:  " 

>; 

char  *menu ( ] =  { 
"Locked   ", 
"Trailing", 
"Removed  " 

>; 

static  char  choice  [4]; 

typedef  struct 

{ 

int  started; 

int  endcol; 
}  data_box; 

static  data_box  input [ ]  = 

{ 

{32,55},  /*  hull  no  */ 

{47,54},  /*  displacement  */ 

{47,54},  /*  tow  speed  */ 

{47,54},  /*  wind  speed  */ 

{47,54},  /*  wind  direction  */ 

{54,58},  /*  yes/no  choice  */ 

{49,58}  /*  tow  file  name  */ 


void  get_data ( ) , save_ship_f ile ( ) ; 

/***********************************************•**************************** 
This  function  prompts  the  user  for  data  concerning  the  tow.  Input  items 
are:  hull  number,  displacement,  tow  speed,  wind  speed,  relative  wind 
direction,  and  propeller  status.  A  popup  menu  is  used  to  select  propeller 
status. 

A****************************************************************************/ 

get_tow_data (flag, hull_no, class, tow_data, ship_data) 

int  *flag; 

char  *hull_no; 

char  *class; 

float  *tow_data; 

float  *ship_data; 

{ 

int  start row— 2; 

int  started— 20; 

int  endrow— 22; 

int  endcol=60; 

int  row,  col,  i,  start,  startl,  key; 

int  status, choicel; 

char  string[25] ,textl [39] , text2 {39] ; 

if  (!flag[l])  /*  tow  data  does  not  exist  */ 
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{ 

/*  initialize  data  variables  to  zero  */ 
hull_no[0]  =  NULL; 
for  (i=0;  i<5;  i++) 
tow_data[i]  =  0.0; 
» 

/*  clear  background  */ 

clear (startrow+1, startcol+1, endrow-1,  endcol-1,  REV  VID)  ; 

/*  write  header  */ 

write_header  (startrow,  started,  endcol,  label  (0]  ,  REV  VID)  ; 

if  (!flag[l]  &&  !flag[2])        /*  enter  new  data  */ 

{ 

clear (startrow+5, startcol+1, endrow-3, endcol-1, REV_VID) ; 
} 

else  if  (flag(l]  &&  !flag[2])  ;   /*  edit  existing  data  */ 
else  if  (flag[2])     /*  retrieve  data  from  file  */ 

{ 

status=get_ship_f  ile  (startrow,  started,  endrow,  endcol,  hull_no,  class, 

tow_data, ship_data,  flag)  ; 
if  (status<0) 
{ 

cursor_of f ()  ; 
flag [2] =0; 
return  (-1)  ; 
} 
) 
clear (startrow+5, startcol+1, endrow-3, endcol-1, REV_VID) ; 

/*  write  data  labels  */ 

f or (row=startrow+5, i=l;  i<=6;  i++, row  +=  2) 

write_string(row, startcol+3, label [i] , REV_VID) ; 

/*  write  units  */ 

for (row=startrow+7, i=0;  i<4;  i++, row  +=  2) 
write_string (row, endcol-5, units [i] , REV_VID) ; 

if  (flagtl]  | |  flag[2]) 
{ 

/*  display  data  */ 

/*  hull  number  */ 

write_string( startrow+5, startcol+2+strlen (label [1] ) +2, hull_no, REV_VID) 

/*  displacement  */ 

sprint f (string, "%6.0f ", tow_data[0] ) ; 

write_string(startrow+7, start col+2+strlen (label [2] ) +2, string,  REV_VID)  ; 

/*  tow  speed  */ 

sprint f (string, "%6 . If ", tow_data (1] ) ; 

write_string (startrow+9, startcol+2+strlen (label [3] ) +15, string, REV_VID) 

/*  wind  speed  */ 
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sprintf (string, "%6. If ", tow_data [2] ) ; 

write_string(startrow+ll, startcol+2+strlen (label [4] ) +3, string, REV_VID) ; 

/*  relative  wind  direction  */ 

sprintf (string, "%6. If ", tow_data (3] ) ; 

write_string(startrow+13, startcol+2+strlen (label (5] )+6, string, REV_VID) ; 

/*  prop  status  */ 

if  (tow_data[4]  ==  LOCKED) 

write_string(startrow+15, startcol+2+strlen (label [6] ) +10, menu [0] , REV_VID) 
else  if  (tow_data[4]  ==  TRAILING) 

write_string(startrow+15, startcol+2+strlen (label [6] ) +10, menu [ 1] , REV_VID) 
else  if  (tow_data[4]  ==  REMOVED) 

write_string(startrow+15, startcol+2+strlen (label [6] ) +10, menu [2] ,REV_VID) 

) 

else  if  ( !flag[l] ) 

{ 

/*  write  footer  */ 

start  =  (endcol-startcol-strlen  (footer  [0]  )) /2  +  started; 

write_string(startrow+17, start, footer [0] , REV_VID) ; 

/*  create  normal  video  boxes  for  data  entry  */ 
vid_box(startrow+5, startcol+2+strlen (label [1] )+2,  23)  ; 
vid_box (startrow+7, startcol+2+strlen (label [2] ) +2, 7) ; 
vid_box (start row+9, startcol+2+strlen (label [3] )+15,  7) 
vid_box(startrow+ll, startcol+2+strlen (label [4] )+3, 7) 
vid_box (startrow+13, startcol+2+strlen (label [5] ) +6, 7) 

/•A***************************************************************/ 

/*  get  user  input  */ 

/•A***************************************************************/ 

/*  get  hull_no  */ 

get_data (0, startrow+5, startcol+2+strlen (label [1] ) +2, hull_no, tow_data) ; 

for  (i»0;  i<23;  i++) 

write_char( startrow+5, startcol+2+strlen (label [1] )+2+i, '  ' ,REV_VID) ; 
write_string ( startrow+5 , start col+2+st r len ( label [ 1 ] ) +2 , hull_no , REV_VID ) ; 

/*  get  displacement  */ 

get_data (1, startrow+7, startcol+2+strlen (label [2] ) +2, hull_no, tow_data) ; 

for  (i-0;  i<7;  i++) 

write_char (startrow+7, startcol+2+strlen (label [2] )+2+i, '  ' ,REV_VID) ; 
sprintf (string, "%6. Of ", tow_data [0] ) ; 
write_string( startrow+7, startcol+2+strlen (label [2] ) +2, string, REV_VID) ; 

/*  get  tow  speed  */ 

get_data (2, startrow+9, startcol+2+strlen (label [3] ) +15, hull_no, tow_data) ; 

for  (i»0;  i<7;  i++) 

write  char (startrow+9, startcol+2+strlen (label [3] )+15+i, '  ' , REV_VID) ; 
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sprintf (string, "%6. If ", tow_data [1] ) ; 

write_string(startrow+9, startcol+2+strlen (label [3] ) +15, string, REV_VID) ; 

/*  get  wind  speed  */ 

get_data (3, startrow+11, startcol+2+strlen ( label [4] ) +3,  hull_no,  tow_data) ; 

for  (i=0;  i<7;  i++) 

write_char (startrow+11, startcol+2+strlen (label [4] ) +3+i, '  ' , REV_VID) ; 
sprintf (string,  "%6.1f ", tow_data[2] )  ; 
write_string( startrow+11, startcol+2+strlen (label [4] ) +3, string, REV_VID) ; 

/*  get  relative  wind  direction  */ 

get_data (4, startrow+13, startcol+2+strlen (label (5] ) +6, hull_no, tow_data) ; 

for  (i=0;  i<7;  i++) 

write_char (startrow+13, startcol+2+strlen (label [5] )+6+i, '  ' , REV_VID) ; 
sprintf (string, "%6. If ", tow_data [3] ) ; 
write_string (startrow+13, startcol+2+strlen (label [5] ) +6,  string,  REV_VID) ; 

/*  get  propeller  status  */ 

tow_data[4]  =  popup (menu, "LTR", 3, startrow+13, endcol-13, SINGLE, REV_VID, 0) ; 

if  (tow_data[4]  ==  LOCKED) 

write_string(startrow+15, startcol+2+strlen (label [6] ) +10, menu [0] , REV_VID) 
else  if  (tow_data(4]  ==  TRAILING) 

write_string(startrow+15, startcol+2+strlen (label [6] ) +10, menu [ 1] , REV_VID) 
else  if  (tow_data[4]  ==  REMOVED) 

write_string (startrow+15, startcol+2+strlen (label [ 6] ) +10, menu [2] , REV_VID) 


/*  erase  footer  */ 

start  =  (endcol-startcol-strlen (footer [0] )) /2  +  startcol; 

for  (i=0;  Kstrlen  (footer  [0]  )  ;  i++) 

write_char (startrow+17, start+i,  '  ' ,REV_VID) ; 
} 

/*****************************************************************/ 

/*     prompt  user  for  confirmation  of  data;  give  edit  option      */ 
/a****************************************************************/ 

start  =»  startcol  +  3; 

write_string (startrow+17, start, footer [1] , REV_VID) ; 

vid_box (startrow+17, start+strlen (footer [1] ) , 4) ; 

get_data (5, startrow+17, start+strlen (footer ( 1] ) , hull_no, tow_data) ; 

/*  test  if  data  correct  */ 

if  (  choice (0] !='y'  &&  choice [0] !=' Y'  &&  choice [0] ! =NULL  ) 

{ 

/*  erase  previous  message  */ 

start  »  startcol  +3; 

for  (i-0;  Kstrlen  (footer  [1]  ) +4  ;  i++) 

write  char (endrow-3, start+i, '  ' , REV  VID) ; 
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/*  write  quit  message  */ 

start- (endcol-startcol-strlen (footer [4] )) /2  +  startcol; 

write_string (endrow, start, footer [4] , REV_VID) ; 

/*  write  first  line  of  edit  "menu"  */ 

start= (endcol-startcol-strlen (footer [2] )) /2  +  startcol; 

write_string(endrow-3, start, footer [2] , REV_VID) ; 

/*  write  function  key  indicators  in  NORM_VID  */ 

for(i=0;  i<2;  i++) 

{ 

write_char (endrow-3, start +i, footer [2] [i] ,NORM_VID) ; 

write_char (endrow-3, start+8+i, footer [2] [i+8] ,NORM_VID) ; 

write_char (endrow-3, start+16+i, footer [2] [i+16] ,NORM_VID) ; 

write_char (endrow-3, start +23+i, footer [2] [i+23] ,NORM_VID) ; 
} 

/*  write  second  line  of  edit  "menu"  */ 

startl= (endcol-startcol-strlen (footer [3] )) /2  +  startcol; 

write_string(endrow-2, start 1, footer [3] , REV_VID) ; 

/*  write  function  key  indicators  in  NORM_VID  */ 

for(i=0;  i<2;  i++) 

{ 

write_char (endrow-2, start 1+i, footer [3] [i] ,NORM_VID) ; 

write_char(endrow-2, startl+12+i, footer [3] [i+12] ,NORM_VID) ; 
} 

/*****************************************************************/ 

/*  edit  data  */ 

/••a**************************************************************/ 

/*  move  cursor  to  Fl  highlight  */ 

cursor_on () ; 

goto_xy (startrow+17, start) ; 

/*  get  user's  choice  */ 

while  (1) 

{ 

key=get_special ()  ; 

/a**************/ 

if  (key—Fl)     /*  hull  number  */ 

vid_box(startrow+5, startcol+2+strlen (label (1] )+2, 23) ; 

get_data(0, startrow+5, startcol+2+strlen (label [1] ) +2, hull_no, tow_data) ; 

for  (i»0;  i<23;  i++) 

write_char( startrow+5, startcol+2+strlen (label [1] )+2+i, '  ' ,REV_VID) ; 
write_string( startrow+5, start col+2+strlen (label [1] ) +2 , hull_no, REV_VID) 
cursor_on () ; 
goto_xy (endrow-3, start) ; 

else  if  (key==F2)    /*  displacement  */ 
/  /********#**■*****/ 

vid_box( start row+7, startcol+2+strlen (label [2] )+2, 7) ; 

get  data(l, startrow+7, start col+2+strlen (label [2] ) +2, hull_no, tow_data) ; 
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for  (i-0;  i<7;  i++) 

write_char (startrow+7, startcol  +  2  +  strlen (label [2 ] ) +2  +  i,  '  '  , REV_VID) ; 
sprint f  (string,  "%6.0f  *',  tow_data[0]  )  ; 

write_string(startrow+7, startcol+2+strlen (label [2] ) +2, string, REV_VID) ; 
cursor_on () ; 

goto_xy (endrow-3, start+8) ; 
j  /***#***********/ 

else  if  (key— F3)    /*  tow  speed    */ 
{  /*#******#******/ 

vid_box ( start row+9, startcol+2+strlen (label [3] ) +15, 7)  ; 

get_data(2, start row+9, startcol+2+strlen (label [3] ) +15, hull_no, tow_data) ; 

for  (i-0;  i<7;  i++) 

write_char (startrow+9, startcol+2+strlen (label [3] ) +15+i, '  ' , REV_VID) ; 
sprintf f string, "%6.1f ", tow_data[l] ) ; 

write_string (startrow+9, startcol+2+strlen (label [3 ] ) +15, string, REV_VID) ; 
cursor_on () ; 
goto_xy (endrow-3,  start  +  16)  ; 

else  if  (key=-F4)     /*  wind  speed   */ 
/  /a**************/ 

vid_box (startrow+11, startcol+2+strlen (label [4 ] ) +3, 7) ; 

get_data (3, startrow+11, startcol+2+strlen (label [ 4 ] ) +3, hull_no,  tow_data) ; 

for  (i-0;  i<7;  i++) 

write_char( startrow+11, startcol+2+strlen (label [4 ] )+3+i, '  ' , REV_VID) ; 
sprintf (string, "%6 . If ", tow_data [2 ] ) ; 

write_string( startrow+11, startcol+2+strlen (label [ 4 ] ) +3, string, REV_VID) ; 
cursor_on () ; 
goto_xy (endrow-3, start+23) ; 

else  if  (key=-F5)     /*  rel  wind  dir  */ 

vid_box (startrow+13, start col+2+atrlen (label [5] ) +6, 7) ; 

get_data (4 , startrow+13, startcol+2+strlen ( label [5] ) +6, hull_no,  tow_data) ; 

for  (i-0;  i<7;  i++) 

write_char (startrow+13, startcol+2+strlen (label [5] ) +6+i, '  ' , REV_VID) ; 
sprintf (string, "%6. If ", tow_data (3] ) ; 

write_string( startrow+13, startcol+2+strlen (label [5] ) +6,  string,  REV_VID) ; 
cursor  on () ; 
goto_xy (endrow-2,  start 1) ; 

else  if  (k«y--F6)     /*  prop  status  */ 

cursor_of f ( ) ; 

tow_data [4]  -  popup (menu, "LTR", 3, startrow+13, endcol-13, SINGLE, REV_VID, 0) ; 

if  (tow_data[4]  —  LOCKED) 

{ 

for  (i-0;  i<-strlen (menu (2] ) ;  i++) 

write_char (startrow+15, atartcol+2+strlen (label [6] ) +10  +  i,  '  '  ,  REV_VID) ; 

write_string(startrow+15, startcol+2+strlen (label [6] ) +10, menu [0] , REV_VID) 


else  if  (tow_data(4]  =»-  TRAILING) 

for  (i-0;  i<-strlen (menu [2] ) ;  i++) 

write  char (startrow+15, startcol+2+strlen (label (6] )+10  +  i,  '  '  ,  REV  VID)  ; 
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write_string(startrow+15, startcol+2+strlen (label [6] ) +10, menu ( 1] ,REV_VID) 
else  if  (tow  data [4]  ==  REMOVED) 


for  (i=0;  i<=strlen (menu [2] ) ;  i++) 

write_char (startrow+15, startcol+2+strlen (label [6] ) +10+i, '  ' , REV_VID) ; 
write_string(startrow+15, startcol+2+strlen (label (6] ) +10, menu [2] , REV_VID) 
} 

cursor_on  () ; 

goto_xy (endrow-2, startl+12) ; 
}  /a**************/ 

else  if  (key==INSERT)      /*  quit  edit    */ 

/*  erase  menu  */ 

for  (i=0;  i<strlen (footer [2] ) ;  i++) 

write_char (startrow+17, start+i, '  ' , REV_VID) ; 
for  (i=0;  Kstrlen  (footer  [3]  )  ;  i++) 

write_char (startrow+18, start 1+i, '  ' , REV_VID) ; 

/*  erase  message  */ 

start  =  (endcol-startcol-strlen  (footer  [4]  ))  /2  +  started; 

for  (i=0;  Kstrlen  (footer  [4] )  ;  i++) 

write_char (endrow, start+i, 205, REV_VID) ; 
break; 
} 
) 
cursor_of f ( ) ; 
j  /************************/ 

else  /*  editing  not  required  */ 

{  /a***********************/ 

/*  erase  previous  message  */ 

start  =  started  +  3; 

for  (i=0;  Kstrlen  (footer  [1] )  +4;  i++) 

write_char (endrow-3, start+i,  '  ' ,REV_VID) ; 
} 

return  (0) ; 
} 

/A*************************************************************************** 
This  function  gets  the  user' s  input  for  the  data  requested  in  the 

function  get_tow_data () .  Uses  screen_getstring( )  for  screen  I/O.  Some  data 

checking  is  performed  for  each  data  type. 
a****************************************************************************/ 

void  get_data (i, row, col, hull_no, data) 

int  i  ; 

int  row; 

int  col ; 

char  *hull_no; 

float  *data; 

{ 

int  nbr;  /*  required  arg  for  stofa        */ 

int  status;  /*  takes  return  value  for  stofa  */ 

char  string[24];  /*  input  string  */ 

char  textl[39],  text2[39];  /*  error  message  text  */ 
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int  j,  k;  /*  counters  */ 

int  length; 

cursor_on();  /*  turn  on  cursor  */ 

goto  xy (row, col);  /*  move  cursor  to  start  of  box   */ 

/*  get  user  input  */ 

screen_getstrg (i, row, col, string, NORM_VID, input) ; 

if  (i==0) 

{ 

/*  convert  input  string  to  upper  case;  output  to  hull_no  */ 
slctouc (string, hull_no) ; 

/*  ensure  hull  number  is  in  proper  format  */ 
/*  —  first  copy  hull_no  */ 
strcpy (string, hull_no) ; 

if  (hull_no[0]=='T' ) 
{ 

if  (hull_no[l]=='  ') 
{ 

hull_no[l]  = 

strcpy (string, hull_no) ; 

> 

else  if  (hull_no[l]  !=  '-') 

{ 

string [1]  = 

length  =  strlen (hull_no) ; 

for  (k=2;  k<=length;  k++) 
string [k]  =  hull_no [k-1] ; 

string [k]  =  NULL; 

strcpy (hull_no, string) ; 
} 
> 

length=strlen (hull_no) ; 
for  (j=0;  j<length;  j++) 

{ 

if  (hull_no[ j]>-'0'  &&  hull_no[ j]<=' 9' ) 

{ 

if  (hull_no[  j-1]  =■«  '-') 
{ 

hull_no[ j-1]  -  '  '  ; 

break; 
} 
else  if  (hull_no[ j-1]  !=  '  ') 

{ 

string[ j]  =  '  ' ; 

for  (k-j+1;  k<-strlen(hull_no) ;  k++) 
string [k]  =  hull_no [k-1]  ; 

string [k]  =  NULL; 

slctouc (string, hull_no) ; 

break; 
} 
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else 

{ 

break; 

} 
I 

} 

I 

else  if  (i>0  &&  i<4) 

{ 

/*  check  for  valid  numeric  input  */ 
for  (k-0;  k<atrlen (string) ;  k++) 

{ 

if  (  string(k]~'  .'  )  ; 

else  if  (string[k]<'0'  ||  string [k] >' 9' ) 

( 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR, textl, "  ") ; 
vid_box (row, col, 7) ; 
get_data (i, row, col, hull_no,  data) ; 
return  ; 
> 
} 

/*  if  input  valid  numbers  only,  convert  string  to  float  */ 
status  -  stof a (string, &data [i-1] , Snbr, 1) ; 
) 

else  if  (i—4) 
( 

/*  check  for  valid  numeric  input  */ 
for  (k-0;  k<strlen (string) ;  k++) 
{ 

if  (  string[k]~'  .'  )  ; 

else  if  (string  (k]— '  -'  )  ; 

else  if  (string[k]<'0'  ||  string [k] >' 9' ) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 
diaplay_error (ERROR, textl, "  ") ; 
vid_box (row, col , 7 ) ; 
get_data ( i, row, col, hull_no, data) ; 
return  ; 
) 
} 

/*  if  input  valid  numbers  only,  convert  string  to  float  */ 
statua  -  stof a (string, &data [i-1 ), inbr, 1 ) ; 
) 

else       /*  i  —  5  */ 
{ 

strcpy (choice, string) ; 
} 

/a******************************************************/ 

/*  check  data  for  consistency  */ 

/♦a*****************************************************/ 
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if  (i— 0)       /*  hull  number  */ 

if  (hull_no[0]<' A'  II  ' Z' <hull_no (0]  &&  hull_no [0 ] <' a'  ||  hull_no [0 ] >'  z  '  ) 
{ 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR, textl,  "  ")  ; 

vid_box (row, col,  23)  ; 

get_data (i, row, col, hull_no,  data) ; 

return  ; 

} 
\  /****************/ 

if  (i==l)     /*  displacement  */ 

if  (data[i-l]<=0.0) 
{ 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR, textl,  "  ")  ; 

vid_box (row, col, 7) ; 

get_data (i, row, col, hull_no,  data)  ; 

return  ; 
} 

else  if  (  data[i-l]<350.0  ||  data [i-1] >91000 . 0  &&  data [i-1] <=100000 .0  ) 
{ 

sprintf (textl, "Displacement  is  outside  range"); 

sprintf (text2, "of  data  in  Table  G-2") ; 

display_error (WARN, textl,  text 2) ; 
I 

else  if  (  data[i-l]>100000.0  ) 
{ 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR, textl,  "  ")  ; 

vid_box (row,  col,  7)  ; 

get_data (i, row, col, hull_no,  data)  ; 

return  ; 
> 

if  (i=2)     /*  towing  speed  */ 
;  /*******•********/ 

if  (data[i-l]<=0.0) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR, textl ,  "  " ) ; 

vid_box (row, col, 7) ; 

get_data(i, row, col, hull_no, data) ; 

return  ; 
} 

else  if  (data[i-l]>10.0  &&  data [i-1 ] <=12 . 0) 
{ 

sprintf (textl, "Planned  tow  speed  is  higher  than") ; 

sprintf (text2, "normally  recommended") ; 

display_error (WARN, textl, text2) ; 
} 

else  if  (data[i-l]>12.0) 
{ 
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aprintf (textl , "Outaide  range  of  Fig.  0-1"); 
aprintf (text2, "->pleaae  *nt«r  new  tow  apeed^-"); 
diaplay_error (EPPOP, textl , text2) ; 
vid_box (row, col, 7) ; 
get_data (i, row, col, hull_no,  data) ; 
return  ; 
) 

if  (i— 3)     /*  wind  apeed  -/ 

(  /**********»*»»/ 

if  (data[i-l]<0) 
{ 

aprintf (textl ," Invalid  entry;  try  again"); 

diaplay_«i.ror  (ERROR,  textl,  "  ")  ; 

vid_box (row, col,  7) ; 

get_data (i, row, col, hull_no, data) ; 

return  ; 

) 

else  if  (data(i-l]>48.0) 

f 

aprintf (textl, "Outaide  range  of  Fig.  0-2"); 

aprintf  (text2 ,  "--'pleaae  enter  new  wind  apeed''-"); 

diaplay_error (EPPOP, textl, text2) ; 

vid_box (row, col, 7) ; 

get_data (i, row, col, hull_no,  data)  ; 

return  ; 
) 

if  (i— 4)     /*  wind  direction  */ 

if  (data(i-l]<0) 
( 

aprintf (textl,  "Use  only  poaitive  angles")  ; 

diaplay_error (WARN, textl, "  ") ; 

data(i-l)  -  -data (1-1]/ 
} 

else  if  (data[i-l]>180.0  it  data(i-l)O«0,0) 
I 

aprintf  (textl,  "'Jae  anglea  between  0  and  180"); 

diaplay_error (WARH, textl, "  ") ; 

data[i-l]  -  3«50.0  -  data(i-l); 

> 

elae  if  (data [i-1] >70 .0  it    data (i-1 ] <110 . 0) 

( 

aprintf (textl , "Ho  extreme  tension  data  for  beam  aeaa") 

aprintf  (text2,  "—■>  uae  anglea  <  70  or  x  110  '*--"); 

diaplay_error (EPPOP, textl , text2 ) ; 

vid_box 'row, col , 7) ; 

get_data  < i, row, col, hull_no, data) ; 

return  ; 
> 

else  if  (data(i-l]>360.0) 
( 

aprintf (textl, "Invalid  entry;  try  again"); 
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displsy_arror  (ERPOP.,  taxtl,  "  ")  ; 
vid_box (row, col, 7) ; 
gat_data  (i,  row,  col,  hu  LI  no,'i«t«) 
return  ; 


) 


) 


curBor_of f ( ) ; 
goto_xy (0/0)) 


} 


/aaaaaassaaaaaaaasAasaasssaasasaaaaaaaaaasaasasaaasaaaaaaiirsaiirssiirii 

This  function  ratriavas  tow  'Ja*\*  frOM  *  ISMS  spacifiad  fila. 

gat_ahip_f ila  (»tartrow,  a  tar  tool,  a  ndr  o  w,  «»r,  doe .  ,/.  ,.  .  .-.',,  claas, 

tow_data,  ahip_data,  f  1«'^/ 
int  atartrow, started; 
int  androw, andcol; 
char  *hull_no; 
char  *class; 
float  *tow_data; 
float  *ship_data; 
int  *fl*g; 
f 

FILE  "in; 

char  fnama(13]; 

char  inlina(91] ; 

char  taxtl [39J ,taxt2(3^J ; 

int  i, j, status, nbr; 

float  array [2] ; 

int  start; 

start  -  (andcol-atartcol-strlanUaball  [1]  )  )  /2  ♦  startcol; 
writa_atring(startrow+8,  start,  laball  f  1]  ,  PEVJ/:.',  |  , 
for  (i-0;  i<2;  i++)       /*  writ*  prompt   ►/ 
( 

start  -  started*:. 

writa_string(startrow+10+i, start,  lahall (i+2J , PEV_VID) ; 
} 

vid_boz(atartrow-Hl,  start  +  strlan  ( lahall  [~i]  )  ,  '))  ; 
sprintf  (taxtl, "Typa    "j'    to    guit"); 

start    -     (andcd-atartcol-strlan  (taxtl)) /2    *    st*/\'.ol; 
writa_string  'androw-3, start, taxtl, PEVJ/ID) ; 
gat_fnama  (6,1,  startrow+11,  started v3  +  str  Ian  'laball  [3J  )  ,  CfUMM 

/ *    chack    for    guit    option    */ 

if     ffnama(0]~'Q'  ) 

{ 

cureor_of f  () ; 

goto_xy (0,  9)  ; 

raturn     (-1) ; 
I 

in-fopan (fnama,  "r")  ; 
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if  (in— NULL) 
{ 

sprintf (textl, "Can' t  open  file  %a",fname); 

diaplay_error (ERROR, textl, "  " )  ; 

clear (etartrow+8, atartcol+1, endrow-3, endcol-1, REV_VID) / 

get_ahip_f il« (atartrow, atartcol, endrow, endcol, hull  no, 
claas, tow_data, ehip_data,  flag)  ; 

rat urn  (0) ; 
} 

else 
( 

/*  read  data  from  file  */ 

fgeta (inline, 81, in) / 

atratrip (inline) ; 

/*  teat  for  valid  tow  file  */ 

if  (!  (atrncmp  (inline,  "!  Tow  data  file", 15))) 

I 

fgeta (inline, 81, in) / 

fgeta (inline, 81, in) / 

atratrip (inline) ; 

/*  teat  if  ahip  file  */ 

if  (atrncmp (inline, "SHIP",  4) ) 

{ 

aprintf (textl,  "%a  ia  not  a  ahip  data  f ile ! " , f name) ; 

diaplay_error (ERROR, textl,  "  ")  ; 

clear (atartrow+8, atartcol+1, endrow-3, endcol-1, REV_VID) 

get_ahip_f ile (atartrow, atartcol, endrow,  endcol,  hull_no, 
claaa, tow  data, ship_data,  flag)  ; 

return  (0) ; 
) 

/ *  get  hull  number  */ 
fgeta (inline,  81,  in)  ; 
fgeta (inline,  81,  in)  ; 
atratrip ( inline)  ; 
atrncpy (hull_no, inline, 24 ) ; 
atratrip (hull_no) ; 

/*  get  claaa  */ 
fgeta (inline, 81, in) ; 
fgeta (inline,  81,  in) ; 
atratrip (inline) ; 
atrncpy (claaa, inline, 24 ) ; 
atratrip ( claaa) ; 

/*  read  remaining  tow  data  */ 

for  (i-0;  i<5;  i++) 

I 

fgeta (inline, 81, in) ; 

fgeta (inline, 81, in) ; 

atatua-atof a (inline, array, tnbr, 1) ; 

tow  data [i] -array (0] ; 
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) 

/*    read  ahip  data  */ 
for  (i-0;  i<6;  i++) 
( 

fgeta (inline, 81, in) ; 

f gat a (inlina, 81 , in) ; 

atatua-atof a (inlina, array, 4nbr, 1) ; 

ahip_data (i J -array (0] / 
} 
f cloaa (in) ; 

) 

•  lae 

I 

aprintf (taxtl, "%a  ia  not  a  tow  data  £  ila  !  ",  f nutit)  ; 
diaplay_arror (ERROR, taxtl , "  " ) ; 

clear (atartrow+8, atartcol +1, and row- 3, andcol-1, REV  V ID) ; 
gat_ahip_f ila (atartrow, atartcol, and row, andcol, hull_no, 

claaa,  tow_data, ahip_data, flag) ; 
raturn  (0) ; 
) 
> 
) 

/ft*************************************************************** 
Thia  function  writaa  tha  tow  data  for  aelf-propelled  ahipa  I  0 
a  uaar  apecified  fila. 

void  sava_ahip_f  ila  (atartrow,  atartcol,  a  ndrow,  an  dcol,hulln', , 

claaa, tow_data, ahipdata) 
int  atartrow, atartcol, androw, andcol; 
char  *hull_no; 
char  *claea; 
float  *tow_data; 
float  *ahip_data; 
f 

FILE  "out; 

char  fname [13]; 

char  atring(25]  ; 

char  taxtl [39]  ; 

int  atart; 

/*  prompt  for  fila  name  */ 

atart  -  atartcol  +  3; 

write_atring(endrow-2, atart, footer [<5] , PEV_VID) ; 

vid_box(endrow-2,  atart  +  atrlen  (footer  (6]  )+3,  'i)  ; 

get_fname (6,1, endrow-2, atart+atrlen (footer [6] ) +3, fname) ; 
out-f open (fname, "w" ) ; 

if  (out— NOLL) 
( 

aprintf  (taxtl,  "Can' t  open  file  '*.*",  fnajne)  ; 

diaplay  error 'EPROP, textl , "  "); 
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aava_ahip_f  ila  (»t«rtrow,  Btmxtool,  «ndrow,  •Odool/httll     nO/0lM0/ 

tow_data, ahip_data)  ; 
raturn; 

I 

alaa 

f 

/*  writ*  tow  data  to  fil*  */ 


fprintf 
fprintf 
fprintf 

fprintf 
fprintf 

fprintf 
fprintf 

fprintf 
aprintf 
fprintf 

fprintf 
•printf 
fprintf 

fprintf 
•printf 
fprintf 

fprintf 
•printf 
fprintf 

fprintf 
•printf 
fprintf 


fprintf 
•printf 
fprintf 

fprintf 
•printf 
fprintf 

fprintf 
•printf 
fprintf 

fprintf 
•printf 
fprintf 


-..».,"!    Tow   data    fil*    n")  ; 
0  lt/"l     T-,w    V/;,«s  :    n")  ; 
out, "3HIP    n") ; 

out,"!    Hull    numbar:    n">; 
out , " %  a    n " , hu 1 1   fl 0 ,  , 

out, "  !    3hip    cla»»:    n"  ,  ; 
out,"'**    n",claaa); 

out,"!  3hip  di»placar«sf,».  |  n"); 
string,  '"*-.  If  n",».ow  datft(OJ)/ 
out,  "'+.*",  atring/  ; 

out,"!  Tow  apaad  (kt»>:  /•!"/; 
■tring,  ',;<:-  .  If  n",  nowdata  (1]  )  ; 
out,  "*.a",  itrir.'j,  ; 

out,"!  Wind  ap«*d  (kt»)  1  n">; 

•  tring,  "'♦,-.  2  f  n  "  ,  tow_data(2]  ;  ; 
out,  "'<:•",  atring)  / 

-.  It/ "J  P.alativa  wind  dir:  n 

•  tring,  "■*.-  .2t  n" ,  tOWjdstfl  [3J  )  ; 
oot,  " '<;•",  atring/  ; 

out,"!  Propailar  atatua :  n"); 
•tring,  "\-  .r>t    n",  tow_data(4]  )  ; 
out,  "%a", atring/  ; 


/*  writ*  ahip  data  to  fila  */ 


out,"!  Tabulatad  di«pl»o%rr*rA.  |  - 
atring,  "'*.-  .Of  n",  ahip_data  f  0]  ;  ; 
out,  "%•",  string,  , 

out,"!  Frontal  windag*  *r*a:  «*); 
•  tring,  "\-  .'>t    n",  •hip_data[l)  )  ; 
out,  "^a",  atring)  ; 

out,"!  Wind  ooafficiant:  I 
■tring,  "'*-.2f  n",  •hip_data(2) )  ; 
0  ft  ,  "%•",  ■tring,  ; 

out,"!  Propailar  ara* 

atring, "*-.2i  n", •hip_data(3J /; 

out,  '"*.m"  ,  atring,  ; 
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fprintf (out, " !  Hull  resistance  curve  number i \n" ) ; 
sprintf (string, "%-.Of\n", ship_data[4] )  ; 
fprintf (out, "%s", string) ; 

fprintf  (out, " !  Wave  resistance  curve  number : \n" ) ; 
sprintf (string, "%-.Of\n", ship_data[5] )  ; 
fprintf (out, "%s", string) ; 

I 

fclose (out) ; 

} 
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/a*************************************************************************** 
File:  tab.c 

Author:  Todd  J.  Peltzer 
Last  Update  :  30  April  1989 

This  file  contains  functions  which  support  the  display  of  Table  G-2 
of  the  USN  Towing  Manual.  The  user  can  scroll  through  the  choices 
in  the  table  to  select  a  ship.  Once  a  selection  is  made,  the  user  is 
prompted  to  confirm  the  choice. 

Functions : 

display_tab_g2 ( ) 
up_line ( ) 
down_line () 
up_page ( ) 
down_page ( ) 
goto_home ( ) 
goto_end( ) 
read_table ( ) 
read_data () 
match_ship ( ) 
match_type ( ) 
match_nbr ( ) 
read_class ( ) 
a****************************************************************************/ 

♦include  "stdio.h" 

♦include  "dos.h" 

♦include  "stdlib.h" 

♦include  "keydef.h"    /*  Define  aux  byte  values  for  IBM  keyboard  */ 

♦include  "video. h" 

void  up_line ( ) , down_line ( ) , up_page ( ) , down_page ( ) , goto_home ( )  ,  goto_end ( ) ; 
void  read_table () ,  read_data(),  read_class ( ) ; 
char  far  *vid_mem; 

static  char  *page_header [2]  ■ 

{ 


CLASS 


DESCRIPTION 


DISP 


WINDAGE 
AREA 


PROP", 
AREA" 


>; 


extern  char  *hull_no; 
extern  char  *class; 

static  char  *footer[2] 


"(Items  marked  with  ' e'  are  best  estimate.)", 

"Use  arrow  keys,  [pgup] ,  [pgdn] ,  [home],  [end]  to  view  choices." 


>; 


union  inkey 
{ 

char  ch [2] ; 
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int  i; 
}  c; 

/♦••A********************************************** a************************* 

Display  the  table  .  .  . 
*************************** **************************************************/ 

display_tab_g2 (table, data, hull_no, class) 

char  **table; 

float  *data; 

char  *hull_no; 

char  *class; 

{ 

FILE  *in; 

int  i,  j,  len,  start,  status; 

int  arrow_choice=0; 

int  n=141; 

int  line_no=0; 

int  match,  type; 

int  nun; 

char  string[81],  ch; 

set_video () ; 

cls(); 

cursor_of f () ;     /*  turn  off  blinking  cursor  */ 

/*  print  header  lines  at  top  of  screen  */ 
for  (i*0;  i<2;  i++) 

write_string(i, 0, page_header [i] , N0RM_VID) ; 

/*  draw  border  */ 
for  (j»0;  j<80;  j++) 

write_char(2, j, 205, N0RM_VID) ; 

/*  write  footer  */ 
for  (i-0;  i<2;  i++) 
{ 

len  ~  strlen (footer [i] ) ; 

start  =  (80  -  len)/2; 

write_string(23+i, start, footer [i] ,N0RM_VID) ; 
> 

/*******************************************************/ 

/*  find  match  with  hull  number  of  ship  entered  by  user  */ 
/*******************************************************/ 

match  ■  match_ship(hull_no, table,  itype) ; 

if  (match<0  &&  type>-0)    /*  hull  type  matches;  hull  no.  does  not  */ 
match  *  type; 

if  (match>=0) 
{ 

/*  set  current  choice  to  "match"  */ 

arrow_choice-match; 

num»n-l-arrow  choice; 
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if  (arrow_choice--n-l) 

goto_end ( iarrow_choice, &line_no, n, table) ; 

«ls«  if  (num  <  20) 

f 

/*  write  first  screen  */ 
for  (i-0;  i<-num;  i++) 

write_atring(i+3,  0,  table [n-1-num+i ] ,  N0PM_VID) ; 

/*  highlight  match  */ 

write_atring (3,  0,  table [arrow_choice ] ,  REV  VID) ; 

/*  ensure  rest  of  screen  is  blank  */ 
clear  (num+1+3, 0, 22, 79) ; 

} 

else 
( 

/*  write  first  screen  */ 

for  (i-0;  i<20;  i++) 

write_string(i+3, 0, table [arrow_choice+i ] , HOPMJ/ID) ; 

/*  highlight  first  entry  */ 

write_string(3, 0, table [arrow_choice ] , PEV_VID) ; 
} 
> 

else 
( 

/*  write  first  screen  */ 
for  (i-0;  i<20;  i++) 

write_string(i+3,  0,  table  [i]  ,  N0P14_VID)  ; 

/*  highlight  first  entry  */ 
write_string (3,0, table [0] ,PEV_VID) ; 

) 

/♦a*****************************************************/ 
/*  get  user's  response  •/ 

status  -  get_tab_g2_resp (&arrow_choice, &line_no, n, table) ; 

if (! status)   /*  status— 0  is  normal  return  from  get_tab_g2_resp  * / 
{ 

/*  read  data  from  appropriate  file  */ 

in  —  fopen ( "table . dat", "r") ; 

read_data (in, arrow_choice, data, 6) ; 

read_class (arrow_choice, table, class, 2  3) ; 
) 
/*  need  else  statement  to  handle  situation  if  escape  key  is  pressed  • / 


/»»»»»*»»ft»»»»»»»»»»»»»»»»*»»»»>»»»»»»»»»»«'»»»»»»»>»»»»»»»»l'r*»»»»»»»»»»»»l 
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This  function  allows  the  user  to  scroll  through  choices  and  make 
selections.  Returns  0  if  selection  is  made;  returns  -1  if  escape  key 
is  pressed. 

*************************************************************************** 

get_tab_g2_resp (arrow_choice, line_no, n, table) 

int  *arrow_choice;  /*  current  table  entry  */ 

int  *line_no;  /*  current  screen  line  number  */ 

int   n;  /*  number  of  entries  in  table  */ 

char  **table;  /*  current  ship  table  */ 

{ 

for  (;;) 

{ 

while ( !bioskey(l) )  ;  /*  wait  for  key  stroke  */ 
c.i  =  bioskey(O);     /*  read  the  key  */ 

if(c.ch[0])  /*  is  normal  key  */ 

{ 

switch(c.ch [0] ) 

{ 

case  ' \r' : 

return  0; 
case  ESC  : 

return  -1;      /*  cancel  */ 
default  : 
beepl  ()  ; 
break; 
}  /*  end  "switch"  */ 

}  /*  end  "if"  */ 

else 

{   /*  is  special  key  */ 
switch (c.ch [1] ) 
{ 

case  UP_ARROW  : 

up_line (arrow_choice, line_no, n, table) ; 
break; 
case  DOWN_ARROW  : 

down_line (arrow_choice, line_no, n, table) ; 
break; 
case  PAGE_UP  : 

up_page (arrow_choice, line_no, n, table) ; 
break; 
case  PAGE_DOWN  : 

down_page (arrow_choice, line_no, n, table) ; 
break; 
case  HOME  : 

goto  home (arrow_choice, line_no,  n, table) ; 
break; 
case  END  : 

goto_end (arrow_choice, line_no, n, table) ; 
break; 
default  : 
beepl () ; 
break; 
}  /*  end  "switch"  */ 
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)  /*     •r.'J     "*Ja*"     -/ 

> 
) 

Thia  tWUttt0tt    movaa    th«    h  1  '^.  ..';/.'-  ■)    Oholot      ■  ,'<    MM        ■  t,*  . 

—  if    b«»'jJ  fin  i  r.'j    '-f    't/zJ*,     ')'/*«    c,',»/. 

—  if    top   of    icron    b>>»     ROl     i.--j.i.i..i.-i    ■ .'.     l/i/,.»,     -.■:■,  J  Ja    »'. /«-.-. 
--  otharwiaa,      )>jat    twj'/mm     >\.    ',r,*     iinm. 

/',.■)      tp     lln*<*rr',«    './,m'.«,  Lin«_no,;.,  '  »;,-«y 

int    'trroK    ihoic*/  /  *    9tfrr*J)t    *.*a.<«    «•/,>//                       -  / 

int    *lin«_no;  /  *    MSMTMt    acraan    Mr/*    r.  ,cr-«;     */ 

tnt      n/  /  *    .•..••,.-.'    •.?    ►  ■  ■■  •     -i    . ;.    •/!/-.•!    */ 

ctur    ""-nar/J*;  /  *    -    ./•.•-/. >     ihif    »»/..-                          */ 

| 

int    i.nuai; 

if   [^irwi  sboio*  --  0)    ;  /*  (lr«t  tafrl*  •>/■.»./■•/  »/ 

•  la*    if     f*iin«_rio    —    0 ,  /*    '.'/[/    of    -.••;-..<,  /    »/ 
( 

/  *    hi  V'.  -  •  fW     ;,/•*•/;  &>ja    antry    *  / 

writa_atri /■.-,'  ;,     0,     ta#la>(*Mnr««    si ••-•  M    1J,    MBVJ/ID)  ; 

/■     i»    fcfei*    tlM     L*#t    a';,raar(?     */ 

if     'r  MK20) 

( 

.«-./      '.-',;     .  'nun;     !♦♦) 

writ***/  ir.^'i  *4,     ',,     t»#l#J*«rrow_ch^ic**lj  ,     H'.fM    /.".,. 
) 

•lM 
| 

wri'a     a*/-..-  7'  .  *'.  ,      '.,     -»r, .:■<■»,  r-.«    -  •  •.     M      •  .,     VOf)'. 

) 

'  ►/>//<vw_choica) — ;         /*    lina_no    •*•/»    v.'.*    ••/'«    */ 

) 

•  la* 

/ 

/*    hiqhl'.'jr.^      -,,r  %/.',.%     +fr/     *  I 

v«ri*-.a     ■♦./•  lAf<*J  .r.*jiO-l+l,     0 ,      tdtlatC******  '        a-1),     M 

/"    r  +  m+'jf    j.*b»     laifMiffcta^    *r.»  /  /    vo    normal    vidao    '/ 
wr:»*    m\r:r.y(-].inm    r-.-;.     9,     UaVJU  '*  «•'■"-  -    '  *  '- 1  •• ) ,    WOW4 

/  •     -:*'./  MMftt    *-.ar.i*    +r.\ry    ♦     *r.';     •  './•••/■.     LiiM     •     */ 
'  * •  Zt'yVl    MM     — 

' * . in«_no) --; 
) 

) 
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Thia  function  moves  the  highlighted  choice  down  one  line. 

—  if  end  of  table,  does  nothing; 

—  if  bottom  of  screen  but  not  end  of  table,  scrolls  screen  down  one  line; 

—  otherwise,  just  moves  down  one  line. 

void  down_line (arrow_choice, line  no, n, table) 

int  *arrow_choice;  /*  current  table  entry         */ 

int  *line_no;  /*  current  screen  line  number  */ 

int   n;  /*  number  of  entries  in  table  */ 

char  **table;  /*  ship  table  */ 

{ 

int  i; 

if  (*arrow_choice  ==  n-1)  ;         /*  last  table  entry;  do  nothing  */ 

else  if  (*line_no  =-  19)  /*  end  of  window,  not  last  entry  */ 

{ 

/*  display  table  */ 

for  (i=0;  i<19;  i++) 

write_string(i+3,  0,  table [ *arrow_choice-18+i] ,  N0RM_VID) ; 

/*  highlight  next  entry  */ 

write_string(22,  0,  table [ *arrow_choice  +  l]  ,  REV_VID); 

(*arrow_choice) ++;  /*  line_no  stays  the  same  */ 

) 

else  /*  move  highlight  down  one  line  */ 

{ 

/*  highlight  next  entry  */ 

write_string(*line_no+l+3,  0,  table [*arrow_choice+l] ,  REV_VID) ; 

/*  restore  last  highlighted  entry  to  normal  video  */ 
write_string(*line_no+3,  0,  table [ *arrow_choice] ,  N0RM_VID) ; 


(*arrow_choice) ++; 
(♦line  no)++; 


} 
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/a*************************************************************************** 
This  function  displays  previous  page  of  table. 

—  if  beginning  of  table,  does  nothing; 

—  if  first  page,  moves  highlight  to  first  line; 

—  otherwise,  highlight  stays  on  same  screen  line. 
•♦a**************************************************************************/ 

void  up_page (arrow_choice, line_no, n, table) 

int  *arrow_choice;  /*  current  table  entry         */ 

int  *line_no;  /*  current  screen  line  number  */ 

int   n;  /*  number  of  entries  in  table  */ 

char  **table;  /*  ship  table                 V 

{ 

int  i,  last; 
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if  (*arrow_choioe  —  0)  ;         /*  first  table  entry  */ 

/*  if  on  first  page,  but  not  first  entry,  highlight  first  entry  */ 

else  if  (*arrow  choice  <  20) 

{ 

for  (i=0;  i<20;  i++) 

write_string(i+3,  0,  table [i],  N0RM_VID) ; 

/*  highlight  first  entry  */ 

write_string(3,  0,  table [0],  REV_VID) ; 

*arrow_choice  -  0;     /*  reset  */ 
*line_no  —  0; 

} 

/*  not  on  first  page;  display  previous  page  */ 

else 

{ 

/*  compute  index  of  top  of  previous  page  */ 

last  -  *arrow_choice  -  *line_no  -  20; 

/*  display  previous  page  */ 

if  (last<»0)     /*  jumping  20  entries  would  go  to  or  past  top  of  table  */ 
{ 

for  (i-0;  i<20;  i++) 

write_string(i+3,  0,  table [i],  N0RM_VID) ; 
write_string(*line_no+last+3, 0, table [ *arrow_choice-20 ] , REV_VID) ; 
*line_no«0;         /*  reset  line_no  */ 
} 
else 

{ 

for  (i-0;  i<20;  i++) 

write_string(i+3,  0,  table [ last+i] ,  N0RM_VID) ; 

/*  highlight  choice;  same  relative  position  on  screen  */ 
write_string(*line_no+3,  0,  table ( *arrow_choice-20] ,  REV_VID) ; 
> 
*arrow_choice  —  20;   /*  line_no  stays  the  same  */ 
I 
} 

/A*************************************************************************** 

This  function  displays  next  page  of  table. 
—  if  end  of  table,  does  nothing; 
--  if  last  page,  moves  highlight  to  last  line; 
--  otherwise,  highlight  stays  on  same  screen  line. 
A*************************************************************************''**/ 

void  down_page (arrow_choice , line_no,  n,  table) 

int  *arrow_choice;  /*  current  table  entry         */ 

int  *line_no;  /*  current  screen  line  number  */ 

int   n;  /*  number  of  entries  in  table  */ 

char  **table;  /*  ship  table  */ 

{ 

int  i,  num,  next; 
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num=n-l-*arrow_choice;    /*  #  lines  to  final  entry  from  current  */ 

if  (*arrow_choice  ==  n-1)  ;         /*  final  table  entry  */ 

/*  if  on  last  page,  but  not  final  entry,  highlight  last  entry  */ 

else  if  (num  <  20) 

{ 

for  (i=0;  i<num;  i++) 

write_string(i+3,  0,  table [n-1-num+i] ,  NORM_VID) ; 

/*  highlight  final  table  entry  */ 
write_string(num+3,  0,  table[n-l],  REV_VID) ; 

*arrow_choice  =  n-1; 
*line_no  =  num; 

clear (num+1+3, 0, 22, 79) ;      /*  ensure  rest  of  screen  is  blank  */ 
} 

else    /*  not  currently  on  final  page  */ 
{ 

/*  compute  index  of  top  of  next  page  */ 
next  =  *arrow_choice  -  *line_no  +  20; 

/*  display  next  page  */ 

if  (n-next<20)    /*  less  than  20  lines  on  final  page  */ 
{ 

/*  ensure  jumping  20  entries  won't  put  highlight  past  final  entry  */ 
if  (next  +  *line_no  <  n)        /*  it  will  go  past  */ 
{ 

for  (i=0;  i  <  (n-next) ;  i++) 

write_string(i+3,  0,  table [next+i] ,  N0RM_VID) ; 

/*  highlight  choice  */ 

write_string(*line_no+3, 0, table [*arrow_choice+20] , REV_VID) ; 

*arrow_choice  +=  20;        /*  line_no  stays  the  same  */ 

clear (n-next+3, 0, 22, 79) ;    /*  ensure  rest  of  screen  is  blank  */ 

} 
else  /*  it  won't  go  past  */ 

{ 

for  (i=0;  i  <  (n-next);  i++) 

write_string(i+3,  0,  table [next+i] ,  N0RM_VID) ; 

/*  highlight  choice  */ 

write_string(3,  0,  table [next],  REV_VID) ; 

♦arrow  choice  +«*  20;        /*  line  no  stays  the  same  */ 

clear (n-next+3, 0, 22, 79) ;    /*  ensure  rest  of  screen  is  blank  */ 
} 
} 
else      /*  n-next  >»  20  */ 
( 
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for  (i-0;  i<20;  i++) 

write_string(i+3,  0,  table (next+i) ,  NORM_VID) ; 

/*  highlight  choice  V 

write_string(*line_no+3,  0,  table [ *arrow_choice+20 ) ,  PE7_VID) ; 

*arrow_choice  +-  20;      / *  line_no  stays  the  same  */ 


} 


) 


This  function  resets  display  to  beginning  of  table;  highlights  first  entry. 

void  goto_home (arrow_choice, line_no,  n,  table) 

int  *arrow_choice;  /*  current  table  entry         */ 

int  *line_no;  / *  current  screen  line  number  */ 

int   n;  /*  number  of  entries  in  table  */ 

char  **table;  /*  current  ship  table          */ 

{ 

int  i; 

/*  display  first  screen  */ 
for  (i-1;  i<20;  i++) 

write_string(i+3,  0,  table [i],  NOPM_VID)  ; 

/*  highlight  first  entry  */ 
write_atring(3,  0,  table [0],  P£V_VID)  ; 

/*  reset  */ 
*arrow_choice  -  0; 
*line_no  -  0; 

} 

/**************************»****►***********►*►►*»**»»»►>'►*<'»**►>'►*»►**►►<•►►>■ 

This  function  displays  final  page  of  table;  highlights  final  entry. 
********************************************«'»**»*»»»**►»*►►►**►»'»'»'►>'►►>'»'»»'»*/ 

void  goto_end (arrow_choice, line_no, n, table) 

int  *arrow_choice;  /*  current  table  entry         */ 

int  *line_no;  /*  current  screen  line  number  */ 

int   n;  /*  number  of  entries  in  table  */ 

char  ""table;  /*  current  ship  table  */ 

( 

int  i; 

/*  display  final  page  */ 
for  (i-0;  i<19;  i++) 

write_string(i+3,  0,  table (n-20+i) ,  U0PJ4VID) ; 

/*  highlight  final  entry  */ 
write_string(22,  0,  table (n-1),  PEVJ/ID)  ; 

*arrow_choice  -  n-1;    /*  set  current  table  entry  to  final  entry  */ 
"line  no  -  19;  /*  set  current  screen  line  to  end  of  screen  */ 
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> 

This  function  reads  string  data  from  a  file,  strips  leading  and  trailing 
spaces,  tabs,  and  carriage  returns,  fills  end  of  string  with  blanks,  and 
adds  a  null  character  to  the  end  of  the  string. 

void  read_table (in, table, length) 

FILE  *in;  /*  pointer  to  input  file  */ 

char  **table;      /*  current  table  */ 

int  length;        /*  length  of  desired  cursor  highlight  */ 

{ 

char  inline [81]; 

int  i,  j=0; 

while  (fgets (inline, 81, in)  !=  NULL  ) 
{ 

strstrip (inline) ;   /*  strip  leading  &  trailing  spaces,  etc.  */ 

/*  skip  blank  &  comment  lines  */ 

if(inline[0]  ==  NULL  ||  inlinefO]  ==  '!')  continue; 

/*  pack  end  of  string  with  blanks  so  highlight  goes  full  width  */ 
for  (i=strlen (inline) ;  i<length;  i++) 
inline [i]  =  '  '  ; 

inline [i]  =  NULL;     /*  terminate  string  with  null  character  */ 

/*  allocate  enough  memory  for  each  string  */ 

table  [j]  =  (char  *)  calloc (81 , sizeof (char) ) ;      /*  is  this  necessary?  */ 

/*  --array  is  already  dimensioned  in  main ( )  */ 

/*  copy  string  from  file  into  array  */ 
strcpy (table [ j] , inline) ; 

j++;       /*  increment  counter  */ 


} 


} 


This  function  reads  strings  from  a  file  and  converts  them  to  floating 
point  data. 

void  read_data (in, data_line, data, array_length) 

FILE  *in;  /*  pointer  to  input  file        */ 

int  data_line;       /*  ship  choice  from  table       */ 

float  *data;         /*  array  to  store  data  */ 

int  array_length;    /*  number  of  elements  in  array  */ 

{ 

char  string [81] , dummy [81] ; 

int  i, status, n, nbr; 

/*  skip  blank  &  comment  lines  */ 
while (1) 
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{ 

fgets (string, 81, in) ; 

if(string[0]  —  NULL  ||  string[0]  ==  '!') 

continue; 
else 

break; 
} 

if  (data_line  !=  0)   /*  if  choice  is  first  line,  string  already  read  */ 
{ 

for  (i=l;  i<data_line;  i++)   /*  read  &  discard  data  up  to  desired  line  */ 
fgets (dummy, 81, in) ; 

fgets (string, 81, in) ;  /*  read  desired  line  of  data  */ 

} 

/*  convert  string  to  floating  array  */ 
status=stof a (string, data, &nbr , array_length) ; 

fclose(in);      /*  close  file  */ 

> 

This  function  searches  for  the  matching  entry  in  Table  G-2,  or  gives 
first  occurrence  of  the  hull  type.  If  no  match  is  found,  returns  -1. 

A****************************************************************************/ 

match_ship (hull_no, table, type_match) 

char  *hull_no; 

char  **table; 

int  *type_match; 

{ 

int  i=0,  j=0,  k=0,  n-141; 

int  status=0; 

int  match=0; 

char  class [23]; 

int  flag=l; 

*type_match  =  -1; 

do 

{ 

status  —  match_type (hull_no, table [ j ]) ; 

if  (status) 

{ 

if  (flag) 

*type_match«j;  /*  captures  first  type  match  */ 

flag-0; 

strncpy (class , table ( j ]  ,  23 ) ; 
class [23] =NULL; 

match  =  match_nbr (hull_no, class) ; 
if  (match) 

break; 
else 
{ 

j++; 
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continue; 
} 
> 

else 
j++; 
}  while  (j<-n); 

if  (status) 

I 

return  j; 

} 
else 

return  -1; 

} 

/***************************************************•#******#**************** 
This  function  determines  if  the  specified  hull  type  matches  that  of  a 
given  entry  in  Table  G-2.  Returns  1  if  hull  type  matches,  otherwise 
returns  0. 

match_type (hull_no,  entry) 
char  *hull_no; 
char  *entry; 
( 

int  i-0; 

int  status-0; 

while (hull_no[i)  !-  NULL) 
( 

if  (hull_no[i]-= '  '  &&  hull_no[i] --entry  [i]  ) 
{ 

status  -  1; 
break; 
) 
else  if  (hull_no  [  i] —entry  [i]  ) 

i++; 

else 
{ 

status  —  0; 
break; 
> 
I 

return  status; 

> 

This  function  compares  the  specified  hull  number  to  the  list  of 

numbers  in  a  given  entry  in  Table  G-2.  Returns  1  if  hull  number  matches, 

oterwise  returns  0. 
♦a***************************************************************************/ 

match_nbr (hull_no, class) 
char  *hull_no; 
char  *class; 
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{ 

float  hull; 
float  tab [4] ; 
int  flag (3); 
int  k-0,  m-0; 
char  atrlng(23] ; 
float  nbr; 

/*  convart  hull_no  to  actual  numbar  "/ 

whila(hull_no[k)  !-  NULL) 

{ 

if  (hull_no(k]  <  '0'  II  bull_no(k]  >  't'J 

k++; 
alaa  if  (hull_no(k)  x-  '0'  44  hull_no(kJ  '-  't'J 
< 

atringfm] «hull_no [k] ; 
k++; 
m++; 
} 
) 

atring(m)-MULL; 
atof  a (at ring, (hull,  4 nbr ,  1)  ; 

/*  convart  ahip  claaa  to  floating  array  */ 

/*    —  atrip  off  ahip  typ*  */ 

k-0  ; 

whila (claaa (k)  !-  '  ' ) 

( 

if  (claaa (k)  '-  ' 0'     II  claaa(k)  ^-  '#') 
k++; 
) 

/ *   --  gat  firat  numbar  "/ 
k+4; 
m-0  ; 

wf.il*  (claaa  [k]  ^-  '0'  44  claaa  (k)  <■  'V, 
< 

atr ingfm] -cl»i»[k); 

k-t-t-; 

m++; 
} 
if  (claaa(k)  —  ' -' ) 

flag(0]-0; 
alaa  if  (claaa(kj  —  '  ,  '  ) 

flag(0]-l; 
alaa 

flag(0]  -  -1; 

atring[m]-H'JLL; 

stofa  '■tring,  '.\».',  [0] ,  4nbr,  1)  ; 

/*       --    gat    aacond   numbar     */ 

k++; 

whila (claaa (kj  s-    ' 0'  44  claaa(k]  '-  'f'J 
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{ 

string [m) -clasi [k] ; 

k++; 

m++; 
} 
if  (class [k]  mm    • -' ) 

flag(l]-0; 
els«  if  (classfk]  —  ' , ' ) 

flag(l]-l; 
«ls« 

flagfl]  -  -lu- 
string [m] -NULL; 
stofa  (string,  &tab [1]  ,  finbr,  1)  ; 

/*   --  get  third  number  */ 

k++; 

m-0; 

while (class [k]  >-  ' 0'     &&  class [k]  <-  '9') 

( 

string [m] -class [k] ; 

k++; 

m++; 
I 
if  (class (k]  --  ' -' ) 

flag [2] -0; 
else  if  (class(k]  —  ' , ' ) 

flag(2]-l; 
else 

flag[2]  -  -1; 

string (m) -NULL; 

stofa(string,  itab [2 ]  ,  &nbr,  1)  ; 

/*   --  get  fourth  number  */ 

k++; 

m-0; 

while  (class  [k]  >-  '  0'  4t  class  [k]  ---  '9') 

( 

string [m] -class (k) ; 

k++; 

m++; 
) 

string (m) -NULL; 

stofa (string, ttab[3] , tnbr, 1) ; 

/*  find  match  */ 

if  (flag(0]<0)  /*  only  one  listed  */ 

( 

if  (hull— tab  [0]  ) 
return  1; 

else 
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return  0; 
) 

else  if  (flag[l]<0)    /*  only  two  listed  */ 
{ 

if  (flag[0]-=l) 
{ 

if    (hull— tab[0]     ||    hull— tab[l]) 

return  1; 
else 

return  0; 
} 

else  if  (flag[0]— 0) 
{ 

if    (hull>- tab[0]    &&    hullOtab[l]) 

return  1; 
else 

return  0; 
} 
} 

else  if  (flag[2]<0)    /*  only  three  listed  */ 
{ 

if  (flag[0]~ 1  &&  flag[l]— 1) 
I 

if  (hull— tab  [0]  ||  hull— tab  [1]  ||  hull— tab  [2]) 

return  1; 
else 

return  0; 
I 

else  if  (flag[0]— 1  &&  flag[l]— 0) 
( 

if  (hull— tab  [0]  ||  (hull>-tab  ( 1]  &&  hull<-tab[2])  ) 

return  1; 
else 

return  0; 
} 

else  if  (flag(0]« 0  '.'.    flag[l]— 1) 
{ 

if  (  (hull>-tab(0]  &&  hull<-tab[l])  II   hull— tab{2]) 

return  1; 
else 

return  0; 
I 
> 

else  /*  four  listed  */ 

{ 

if  (flag[0]~ 1  &&  flag[l]— 1  &«,  flag[2]— 1) 
{ 

if  (hull— tab[0]  ||  hull— tab  [1]  II  hull— tab  [2]  II  hull—  tab[3]) 

return  1; 
else 

return  0; 
} 

else  if  (flag(0]— 0  &&  flag(l]— 1  &&  flag(2]—  1) 
I 
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if    (     (hull>=tab[0]    &&    hull<=tab[l])     ||    hull==tab[2]     ||    hull==tab [3] ) 

return  1; 
else 

return  0; 
) 

else  if  (flag(0]==l  &&  flag[l]==l  &&  flag[2]==0) 
{ 

if  (hull==tab[0]  ||  hull==tab[l]  ||  (hull>=tab [2]  &&  hull<=tab{3])  ) 

return    1; 
else 

return   0; 
> 

else    if    (flag[0]==0    &&    flag[l]==l    &&    flag[2]==0) 
{ 

if    (     (hull>=tab[0]    &&    hull<=tab[l])     ||     (hull>=tab [2]    &&    hull<=tab[3])     ) 

return  1; 
else 

return  0; 
} 
} 
> 

/**************************************************************************** 
This  function  reads  the  ship  class  based  on  the  user' s  choice  as 
specified  by  the  user  in  display_tab_g2 ( ) . 
************************************************************************* 

void  read_class (choice, table, class, length) 

int  choice; 

char  **table,  *class; 

int  length; 

{ 

int  i  ; 

for  (i=0;  Klength;  i++) 

class  [i]  =  table [choice]  [i] ; 

class [length]  =  NULL; 

> 
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/•A************************************************************************* 
File:  dis.c 

Author:  Todd  J.  Peltier 
Last  update:  30  April  198  9 

This  file  contains  the  functions  which  display  the  ship  data  read 
from  file  and  give  the  user  the  opportunity  to  edit  it. 

Functions : 

display_data ( ) 
edit_data () 
•a***************************************************************************/ 

♦include  "stdio.h" 
♦include  "dos.h" 
♦include  "keydef.h" 
♦include  "video. h" 

static  char  * label []  = 

{ 

"SHIP  DATA", 
"Hull  number:", 
"Class: ", 
"Displacement", 

Actual:", 

Tabulated:", 
"Frontal  area:", 
"Wind  coefficient:", 
"Propeller  area:", 
"Hull  resistance  curve:", 
"Wave  resistance  curve:" 

}; 

static  char  * footer []  = 
{ 

"Is  all  data  correct?  (yes/no):  ", 

"Fl  Disp  F2  Front  F3  Wind  F4  Prop", 

"  Press  INS  to  continue  ", 

"   Save  data  to  file?  (yes/no):  ", 

"  Enter  tug  file  name:  " 
}; 

static  char  choice [4]; 

typedef  struct 
{ 

int  start col; 

int  ended; 
}  data_box; 

static  data_box  input (]  ■ 
( 

{43,50},  /*  displacement    */ 

{43,50},  /*  frontal  area    */ 

{44,50},  /*  wind  coef       */ 
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{43,50},         /*  propeller  area  */ 
{54,58}  /*  yes/no  choice   */ 

}; 

void  edit_data () ; 

/•a************************************************************************* 
This  function  displays  the  data  input  by  the  user  to  this  point,  and 
gives  the  option  to  edit  most  items. 
a***************************************************************************/ 

void  display_data (hull_no, class, tow_data, ship_data) 
char  *hull_no;  /*  actual  hull  number         */ 

char  *class;  /*  ship  class  from  table  G-2  */ 

float  *tow_data;         /*  tow  data  */ 

float  *ship_data;        /*  ship  data  */ 

{ 

int  start row=2; 

int  startcol=20; 

int  endrow=22; 

int  endcol=60; 

int  row,  col,  i,  start,  key; 
char  string[24]; 

/*  draw  background  and  border  */ 

draw_window (startrow, startcol, endrow, endcol, DOUBLE, REV_VID) ; 

/*  write  header  */ 

write_header (startrow, startcol, endcol, label [0] , REV_VID) ; 

/*  write  data  labels  */ 

for (row=startrow+5, i=l;  i<=10;  i++, row++) 

write_string(row, startcol+3, label (i] , REV_VID) ; 

/*  write  data  */ 

/*  write  hull  number  */ 

write_string(startrow+5, startcol+2+strlen (label (1] ) +2, hull_no, REV_VID) ; 

/*  write  ship  class  */ 

write_string(startrow+6, startcol+2+strlen (label [2] ) +2, class, REV_VID) ; 

/*  write  actual  displacement  */ 

sprintf (string, "%8 .Of ", tow_data [0] ) ; 

write_string(startrow+8, startcol+2+strlen (label [4] ) +8, string, REV_VID) ; 

/*  write  tabulated  displacement  */ 

sprintf (string, "%8.0f ", ship_data(0] )  ; 

write_string(startrow+9, startcol+2+strlen (label [5] ) +5, string,  REV_VID) ; 

/*  write  frontal  windage  area  */ 

sprintf (string, "%5.0f ", ship_data[l] ) ; 

write_string(startrow+10,  startcol +2 +strlen (label [6] ) +10, string, REV_VID) ; 

/*  write  wind  coefficient  */ 
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aprintf (string, "%4 .2f ", ship_data[2] ) ; 

write_string(startrow+ll, started +2 +strlen (label [7] ) +7, string, REV_VID) ; 

/*  write  propeller  area  */ 

sprintf (string, "%5 . Of", ship_data [3] ) ; 

write_string(startrow+12, startcol+2+strlen (label [8] ) +8, string, REV_VID) ; 

/*  write  hull  resistance  curve  number  */ 

sprintf (string, "%3.0f ", ship_data [ 4] ) ; 

write_string(startrow+13, startcol+2+strlen (label [9] ) +3, string, REV_VID) ; 

/*  write  wave  resistance  curve  number  */ 

sprintf (string, "%3 . Of", ship_data [ 5] ) ; 

write_string(startrow+14, startcol+2+strlen (label [ 10] ) +3, string, REV_VID) 

/*  write  units  */ 

write_string(startrow+8, startcol+31, "tons", REV_VID) ; 
write_string(startrow+9, startcol+31, "tons", REV_VID) ; 
write_string(startrow+10, startcol+31,  "sq  ft", REV_VID) ; 
write_string(startrow+12, startcol+31, "sq  ft",REV_VID) ; 

/a*********************************************************/ 

/*  prompt  user  for  confirmation  of  data;  give  edit  option  */ 
/a*********************************************************/ 

start  ■  started  +  3; 

write_string (startrow+16, start, footer [0] , REV_VID) ; 

vid_box (startrow+16, start +strlen (footer [0] )  ,  4 ) ; 

edit_data (4 , startrow+16, start+strlen (footer [0] ) , tow_data, ship_data) ; 

/*  test  if  data  correct  */ 

if  (  choice [0] !-'y'  &&  choice [0] !-' Y'  &&  choice [0] ! -NULL  ) 

{ 

/*  erase  previous  message  */ 

start  =■  started  +  3; 

for  (i-0;  Kstrlen  (footer  [0]  )  +4  ;  i++) 

write_char (startrow+16,  start+i,  '  ' , REV_VID) ; 

/*  write  quit  message  */ 

start-  (endcol-startcol-strlen  (footer  [2]  ))  /2  +  started; 

write_string(endrow, start, footer [2] , REV_VID)  ; 

/*  write  edit  "menu"  */ 

start- (endcol-startcol-strlen  (footer  [  1]  )) /2  +  started; 

write_string (startrow+16, start, footer [1] , REV_VID) ; 

/*  write  function  key  indicators  in  N0RM_VID  */ 

for (i-0;  i<2;  i++) 

{ 

write_char (startrow+16, start+i, footer [1] (i] ,NORM_VID) ; 

write_char (startrow+16, start+8+i, footer [1] [i+8] ,N0RM_VID) ; 

write_char (startrow+16, start+17+i, footer[l] [i+17] ,N0RM_VID) ; 

write_char (startrow+16, start+25+i, footer [1] [i+25] ,N0RM_VID) ; 
} 
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/*  edit  data  */ 

/*  move  cursor  to  Fl  highlight  */ 

cursor_on () ; 

goto_xy (startrow+16, start) ; 

/*  get  user's  choice  */ 

while  (1) 

{ 

key-get_special () ; 

if  (key— Fl) 
{ 

vid_box( start row+8, startcol+2+strlen (label [4] ) +9, 7)  ; 

edit_data (0, startrow+8, startcol+2+strlen ( label [4] ) +9, tow_data, ship_data) 

for  (i-0;  i<7;  i++) 

write_char (startrow+8, startcol+2+strlen (label (4 ] ) +9+i, '  ', 
REV_VID) ; 
sprintf (string, "%8 . Of ", tow_data [0] ) ; 
write_string( start row+8, startcol+2+strlen (label (4 ] ) +8, string, 

REV_VID) ; 
cursor_on ( ) ; 

goto_xy (startrow+16, start) ; 
I 
else  if  (key— F2) 

( 

vid_box (startrow+10, startcol+2+strlen (label [6] ) +8,  7)  ; 
edit_data (1, startrow+10, startcol+2+strlen (label [6] ) +8, 

tow  data, ship  data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+10, startcol+2+strlen (label (6] ) +8+i, '  ', 
REV_VID) ; 
sprintf (string, "%6.0f", ship_data(l] )  ; 
write_string (startrow+10, startcol+2+strlen (label [6] ) +9, string, 

REV_VID) ; 
cursor_on () ; 

goto_xy (startrow+16, start+8 )  ; 
} 

else  if  (key— F3) 
{ 

vid_box(startrow+ll, startcol+2+strlen (label (7] )+5, 6) ; 

edit  data (2, start row+ 11 , startcol+2+strlen (label [7 ] ) +5 , tow_data, 

ship_data) ; 
for  (i-0;  i<7;  i++) 

write_char (startrow+11, startcol+2+strlen (label { 7] ) +5+i, '  ', 
REV_VID) l 
sprintf (string, "%6.2f ", ship_data[2) ) ; 
write  string (startrow+11, started +2 +  strlen ( label [7] ) +5,  string, 

REV_VID) ; 
cursor_on () ; 

goto_xy (startrow+16, start+17) ; 
} 
else  if  (key— F4) 
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{ 

vid_box(atartrow+12,startcol  +  2+atrlen  (label [8] ) +6, 7)  ; 
edit_data  (3,  startrow+12,  startcol+2+strlen  (label  (8  ]  )  »  K,  t.ow_data, 

ahip_data) ; 
for  (i-0;  i<7;  i++) 

write_char (startrow+12, startcol+2+strlen (label [8] ) +6+1, '  ' , 
REV_VID) ; 
sprintf (string, "%7.0f ", ship_data[3] ) ; 
write_string (startrow+12, startcol +2 +strlen (label [ 8 ] ) +6, string, 

REV_VID) ; 
cursor_on ( ) ; 

goto_xy (startrow+16, start+25) ; 
} 

else  if  (key--INSERT) 
{ 

/*  erase  menu  */ 

for  (i-0;  i<strlen(footer(l] ) ;  i++) 

write_char (startrow+16, start+i, '  ' , REV_VID) ; 

/*  erase  message  */ 

start  —  startcol  +  1; 

for  (i-0;  i< (endcol-startcol-1) ;  i++) 

write_char (endrow, atart  +  i, 205,  REV_VID)  ; 
break; 
) 
} 
cursor_of f ( ) ; 
) 

else      /*  no  editing  required  */ 
( 

/*  erase  previous  message  */ 

start  -  startcol  +  3; 

for  (i-0;  Kstrlen  (  footer  (0  ])  +4  ;  i  +  +  ) 

write_char (startrow+16, start+i, '  ' , REV_VID) ; 
) 

/*  prompt  to  save  data  to  file  */ 
start  -  startcol  +  3; 

write_string (endrow-4 , start, footer ( 3] , REV_VID) ; 
vid_box (endrow-4, start  +  strlen (footer ( 3) )  ,  4)  ; 
edit_data (4, endrow-4, at art + at rl en (f ooter [ 3] ) , tow_data, ahip_data) ; 

if  (  choice [0] !-'n'  &&  choice [0] !-' N'  )     /*  save  data  */ 
{ 

/*  erase  previous  message  */ 

start  -  startcol  +  3; 

for  (i-0;  Kstrlen  (footer  [3]  )  +4;  i++) 

write_char (endrow-4, start+i, '  ' ,REV_VID) ; 

aave_ship_f ile (startrow, atartcol, endrow, endcol, hull_no, 
class,  tow_data, ship_data) ; 

} 


/•A********************************************** 
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.......................... 


Thia  function  allowa  aditing  of  tha  -Uin  -i  i  .1;,  ]  />y*d  by  iitj.i-i/  d*tft  0  • 

void  adit_data  (  i,  row,  col,  tow_data,  *hlp  data) 

int  i; 

int  row; 

int  col; 

float  *tow_data, *ahip_data; 

I 

int    nbr;  /*    r*'julr«'i    a;g    lor    atof  a  */ 

int    atatua;  /*    takaa    /«-tmn    va  )  >;«    for    atof  a    */ 

char    taxtl(39],     taxt2(39];    /*    arror   maaaaga    taxt  »/ 

int    k;  /*    countar  *■/ 

char    atring  (24];  /*    array    for    kaybo«<i     Lnpul  */ 

curaor_on ( ) ;  /*    turn    on    cur  a'.;  */ 

goto_xy (row, col ) ;  / *    mova    curaor    fcO    i'a/t     Ol     bOJf        * / 

/*    gat    uaar    input    */ 

acraan_gatatrg(i,  row,  col,  atri  ng,  NORM    '//I;,  input); 

if    (1<4) 

( 

/*  chack  for  valid  numaric  input  */ 
for  (k-0;  k<atrlan (atring) ;  k++) 
( 

if  (  atring(k)— '  .'  )  ; 

alaa  if  (atring  Ik]  <>  0'  ||  atring(k) X  9' ) 

( 

aprintf (taxtl , " Jnva 1 i d  antry;  try  again";; 
diaplay_arror (EPPOP, I axtl, "  ") ; 
vi  d_box (row, col, 7) ; 

aditdata (i, row, 00] , fcOW  data, ahlp_data) ; 
raturn  ; 
} 
} 

/*  if  input  valid  numbara  only,  OOflTOrt  atring  to  float  »/ 
if  (i— 0) 

atatua  -  atof a (atring, atow  )a» a  I  |  J , 4nbr, 1 ) ; 
alaa 

atatua  -  atof a (atring, 4ahip  data ( i] , inbr, 1) ; 
} 

alaa       /*  i  —  4  */ 
at rcpy (choica, atring/ ; 

/ *  chack  data  for  conaiatancy  */ 

if  (i— 0)     /-    chack  diaplacamant  */ 

( 

if  (tow_data(i]''-0.'M 
( 

aprintf (taxtl ," Invalid  antry;  t r /  again"/; 
diaplayarror (EPPOP , taxtl , "  "/ ; 
vidbox (row, col, 7) ; 

adit_data (i, row, col, tow_data, ahip_data) / 
raturn  ; 
> 
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elae  if  (  tow_data(i]<350.0  ||  tow_data [ i ] >91000 . 0  St 
tow_data[i]<-100000.0  ) 

{ 

aprintf (textl , "Diaplacement  ia  outeide  range"); 
aprintf (text2, "of  data  in  Table  0-2"); 
diaplay_error (WARN, textl, text2) ; 

} 

elae  if  (  tow_data [ i] >100000 . 0  ) 

( 

aprintf (textl, " Invalid  entry;  try  again"); 
display_error (ERROR,  textl,  "  ")  ; 
vid_box (row, col, 7) ; 

edit_data (i, row, col, tow_data, ahipdata) ; 
return  ; 
} 
} 

if  (i— 1)     /*  check  frontal  area  */ 
f 

if  (ahip_data[i]<-0.0) 

( 

aprintf (textl, "Invalid  entry;  try  again"); 

diaplay_error (ERROR, textl,  "  ") ; 

vid_box (row, col, 7) ; 

edit_data (i, row, col, tow_data, ahip_data) ; 

return  ; 

I 

elae  if  (ahip_data [ i] >50000 .0) 

( 

aprintf (textl, "Frontal  area  ia  unuaually  high;"); 
aprintf (text2, "pleaae  check  thia  number  again."); 
diaplay_error (WARN, textl,  text2)  ; 
) 
) 
if  (i~2)      /*  check  wind  coefficient  */ 

( 

if  (ahip_data[i]<0  ||  ahip_data [i] >1 . 0) 

( 

aprintf (textl, "Invalid  entry;  try  again"); 

diaplay_error (ERROR, textl,  "  ")  ; 

vid  box (row, col, 7) ; 

edit_data (i, row, col, tow_data,  ahip_data)  ; 

return  ; 
) 
I 

if  (i— 3)     I*    check  propeller  area  */ 
( 

if  (ahip_data(i]<0) 
{ 

aprintf (textl, "Invalid  entry;  try  again"); 

diaplay_error (ERROR, textl, "  ") ; 

vid_box (row,  col,  7)  ; 

edit_data (i, row, col, tow_data, ahip_data) ; 

return  ; 
) 
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else  if  (ship_data[i]>1500.0) 

{ 

sprintf (textl, "Propeller  area  is  unusually  high;") 
sprintf (text2 , "please  check  this  number  again."); 
display_error (WARN, textl,  text 2)  ; 

) 
} 

cursor_of f () ; 
goto_xy (0,0); 
> 
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/A*************************************************************************** 
File:  dock.c 
Author:  Todd  J.  Peltzer 
Last  update:  30  April  1989 

This  file  contains  functions  which  support  computation  of  the 
resistance  of  floating  drydocks  and  barges. 

Functions : 
get_dock ( ) 
get_hull_cond ( ) 
get_dock_towdata ( ) 
dock_summary ( ) 
get_name ( ) 
get_dock_resist () 
dock_resist () 
square ( ) 
get_dock_data ( ) 
get_dock_file () 
save_dock_f ile ( ) 

est_disp() 

••A**************************************************************************/ 

tinclude  "stdio.h" 

tinclude  "dos.h" 

♦include  "keydef.h" 

tinclude  "video. h" 

static  char  *header[]  = 
{ 

"SELECT  DRYDOCK", 

"HULL  CONDITION", 

"TOW  DATA", 

"DATA  SUMMARY" 

>; 

static  char  *label[]  = 

{ 

"Clean  hull  (no  growth)  =   0", 

"Average  hull  (moderate  growth)  =   5", 

"Fouled  hull  (heavy  growth)      =  10", 

"Enter  hull  condition:", 

"Tow  speed:", 

"Max  expected  wind  speed:", 

"Relative  wind  direction:" 
>; 

static  char  *labell[]  ■ 
{ 

"Options", 

"Retrieve  File", 

"Enter  name  of  tow  file", 

"to  retrieve  (8  char  max) :  " 

); 
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static  char  *menul[]  = 

{ 

"1)  Enter  new  data 

"2)  Edit  existing  data", 

"3)  Retrieve  data  file" 


static  char  * footer []  = 
{ 

'Please  enter  data.", 
'Is  all  data  correct?  (yes/no) 
•Fl  Name  F2  Hull  F3  Tow", 
•F4  Wind  F5  Rel", 
Press  INS  to  continue  ", 

Save  data  to  file?  (yes/no) 
Enter  tow  file  name :  " 


static  char  response [4] ; 


typedef  struct 
{ 

int  start col; 

int  endcol; 
}  data  box; 


static  data  box  input [ ] 

{ 


{49, 

55}, 

/* 

not  used 

V 

{49, 

55}, 

/* 

hull  condition 

*/ 

{49, 

55}, 

/* 

tow  speed 

*/ 

{49, 

55}, 

/* 

wind  speed 

V 

{49, 

55}, 

/* 

wind  direction 

V 

{54, 

58}, 

/* 

yes/no  choice 

*/ 

{49, 

58} 

/* 

tow  file  name 

*/ 

>; 

static  int  startrow»2;  /*  boundaries  of  window  */ 

static  int  startcol=20;  /*  "  */ 

static  int  endrow-22;  /*  "  */ 

static  int  endcol-60;  /*  "  */ 

void  get_hull_cond ( ) , get_dock_towdata ( ) ; 

void  dock_summary ( ) , get  dock  data (), get_name (), get  dock  resist  (); 

void  dock_resist ( ) , save_dock_f ile ( ) , est_disp ( ) ; 

extern  float  resist_dat [5] ; 

This  function  displays  the  drydocks  listed  in  Table  G-4  of  the  U.S.  Navy 
Towing  Manual,  gets  the  user' s  choice,  and  reads  the  appropriate  data  from 
the  table  based  on  that  choice. 

••A**************************************************************************/ 

get_dock (flag, choice, data, name, tow_data) 
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int  *flag;  /*  status  flag  */ 

int  *choice;        /*  drydock  selection   */ 

float  *data;        /*  array  to  hold  drydock  towing  data  from  Table  G-4  */ 

char  *name;         /*  drydock  name   */ 

float  *tow_data;    /*  array  to  hold  tow  data  */ 

{ 

int  start; 

int  choicel, status; 

FILE  *in; 

char  table [15] [35]  ; 

char  textl[39] , text2[39] ; 

/*  clear  background  */ 

clear (startrow+1, startcol+1, endrow-1, endcol-1, REV_VID) ; 

/*  write  header  */ 

write_header (startrow, startcol, endcol, header [0] , REV_VID) ; 

if  (flag[2])  /*  retrieve  data  from  file  */ 

{ 

status=get_dock  file (startrow, startcol, endrow, endcol, name, 

data, tow_data) ; 

if  (status<0) 

{ 

cursor_of f ( ) ; 
return  (-1)  ; 

} 

est_disp (0, data, tow_data) ; 
> 

else  if  (!flag[l]  &&  !flag[2])        /*  enter  new  data  */ 
{ 

/*  read  drydock  types  from  file  */ 

in  =  fopen("dock  str .dat", "r") ; 

read_table (in, table, 33) ; 

f close (in) ; 

/*  use  popup  function  to  display  drydock  choices  */ 

♦choice  -  popup (table, "", 14 , startrow+4, startcol+1, NONE,  REV_VID, 0) ; 

/*  check  for  ESC  key  */ 
if  (  (*choice)  <  0) 
{ 

statu««get_dock (flag, choice, data, name, tow_data) ; 

return  (0) ; 
} 

/*  read  drydock  name  */ 
read_class (*choice, table,  name,  13) ; 

/*  read  data  from  file  based  on  choice  */ 
in  -  fopen ("drydock.dat", "r") ; 
read_data (in, *choice, data,  7) ; 
f close (in) ; 

) 
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return  (0)  ; 

} 

/a*************************************************************************** 
This  function  displays  a  numerical  scale  for  hull  fouling  and  prompts 

the  user  for  input.  Based  on  that  input,  the  drydock  towing  coefficient 

"fl"  is  assigned  a  value  from  0.45  to  0.80. 
••••a************************************************************************/ 

void  get_hull_cond(tow_data) 

float  *tow_data; 

{ 

int  row,  col,  i,  key; 

int  start; 

char  string [81]; 

/*  draw  background  and  border  */ 

draw_window  (start row,  started,  endrow,  endcol,  DOUBLE,  REV_VID)  ; 

/*  write  header  */ 

write_header (startrow, start col, endcol, header [ 1] , REV_VID) ; 

/*  write  labels  */ 

start  =  (endcol  -  started)  /2  +  started; 

write_string(startrow+5, startcol+3, label [0] , REV_VID) ; 

write_char (startrow+6, start, 25, REV_VID) ; 

write_str ing ( st artrow+7 , startcol+3 , label [ 1 ] , REV_VID )  ; 

write_char (startrow+8, start, 25, REV_VID) ; 

write_str ing ( startrow+9 , startcol+3 , label [ 2 ] , REV_VID ) ; 

write_string(startrow+ll, startcol+3, label [3] , REV_VID) ; 

/*  create  normal  video  box  for  data  entry  */ 
vid_box(startrow+ll,startcol+3+strlen (label [5] )+2, 6) ; 

/*  write  footer  */ 

start  =  (endcol-startcol-strlen (footer [0] )) /2  +  startcol; 

write_string(startrow+13, start, footer [0] , REV_VID) ; 

/****•**************************************************************/ 
/*  get  hull  condition  */ 

get_dock_data (4, startrow+11, startcol+3+strlen (label [5] ) +2, tow_data) ; 
for  (i»0;  i<7;  i++) 

write_char( startrow+11, startcol+3+strlen (label [5] )+2+i,  '  '  ,  REV_VID) ; 
sprintf (string, "%7. If ", tow_data [4 ] )  ; 
write_string (startrow+11, startcol+3+strlen (label [5] ) , string, REV_VID) ; 

/*  erase  prompt  */ 

start  =  (endcol-startcol-strlen (footer (0] )) /2  +  startcol; 

for  (i=0;  Kstrlen  (footer  [0] )  ;  i++) 

write_char(startrow+13, start+i, '  ' ,REV_VID) ; 

/*  pause;  wait  for  INS  key  before  continuing  */ 

pause (startrow, startcol, endrow, endcol, footer [4] , REV_VID) ; 

} 
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/•••a************************************************************* 

This  function  prompts  the  user  for  tow  speed,  wind  speed, 
and  relative  wind  direction. 
♦A****************************************************************/ 

void  get_dock_towdata (tow_data) 

float  *tow_data; 

{ 

int  row,  col,  i,  key; 

int  start; 

char  string [81]; 

/*  clear  portion  of  window  */ 

clear ( start row+1, startcol+1, endrow-1, endcol-1, REV_VID) ; 

/*  write  header  */ 

write_header (startrow, startcol, endcol, header [2] , REV_VID) ; 

/*  write  labels  */ 

write_string( startrow+7, startcol+3, label [4] , REV_VID) ; 
write_string(startrow+9, startcol+3, label [5] , REV_VID) ; 
write_string(startrow+ll, startcol+3, label [6] , REV_VID) ; 

/*  create  normal  video  boxes  for  data  entry  */ 
vid_box (startrow+7, startcol+3+strlen (label [ 5] ) +2,  6) ; 
vid_box (startrow+9, startcol+3+strlen (label [5] ) +2,  6) ; 
vid_box (st art row+1 1, startcol+3+strlen (label [5] ) +2, 6) ; 

/*  write  footer  */ 

start  =  (endcol-startcol-strlen (footer [0] )) /2  +  startcol; 

write_string(startrow+13, start, footer [0] ,REV_VID) ; 

/*  write  units  */ 

write_str ing( startrow+7,  endcol-4,  "Jets",  REV_VID)  ; 
write_str ing( startrow+9, endcol-4, "kts", REV_VID) ; 
write_string(startrow+ll, endcol-4, "deg", REV_VID) ; 

/*  get  data  */ 

/*  —  tow  speed  */ 

get_dock_data (1, startrow+7, startcol+3+strlen (label [5] ) +2, tow_data) ; 

for  (i-0;  i<7;  i++) 

write_char (startrow+7, start col+3+strlen (label [5] )+2+i, '  ' ,REV_VID) ; 
sprintf (string, "%7. If ", tow_data [1] ) ; 
write_string( startrow+7, startcol+2+strlen (label [5] ) +2, string, REV_VID) 

/*  —  wind  speed  */ 

get_dock_data (2, startrow+9, startcol+3 +strlen (label [5] ) +2, tow_data) ; 

for  (i=0;  i<7;  i++) 

write_char( startrow+9, startcol+3+strlen (label [5] )+2+i, '  ' ,REV_VID) ; 
sprintf (string, "%7 . If ", tow_data [2] ) ; 
write_string (startrow+9, startcol+2+strlen (label [5] ) +2, string, REV_VID) 

/*  —  wind  dir  */ 

get_dock_data (3, startrow+11, startcol+3+strlen (label [5] ) +2, tow_data) ; 
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for  (i=0;  i<7;  i++) 

write_char (startrow+11, startcol+3+strlen (label ( 5] )+2+i, '  ' , REV_VID) ; 
sprintf  (string,  "%7  .  If ',  tow_data  [3]  )  ; 
write_string( startrow+11, startcol+2+strlen (label [5] )  +2, string, REV_VID) ; 

/*  erase  prompt  */ 

start  =  (endcol-startcol-strlen  (footer  [0]  )) /2  +  startcol; 

for  (i=0;  i<strlen (footer [0] ) ;  i++) 

write_char(startrow+13, start+i,  '  ' , REV_VID) ; 

/*  pause;  wait  for  INS  key  before  continuing  */ 

pause (startrow, startcol, endrow, endcol, footer [4] , REV  VID) ; 


} 


/•a************************************************************************** 
This  function  displays  a  summary  of  input  data  and  gives  the  user  the 
opportunity  to  edit . 
••a**************************************************************************/ 

void  dock_summary (choice, dock_data, tow_data, name) 

int  * choice; 

float  *dock_data; 

float  *tow_data; 

char  *name; 

{ 

int  row,  col,  i,  key; 

int  start; 

char  string{81]; 

unsigned  char  *p;   /*  buffer  for  screen  data  */ 

/*  clear  portion  of  window  */ 

clear ( start row+1, startcol+1, endrow- 1, endcol- 1, REV_VID) ; 

/*  write  header  */ 

write_header (startrow, startcol, endcol, header [3] , REV_VID) ; 

/*  write  labels  */ 

write_string(startrow+5, startcol+3, "Name : ", REV_VID) ; 
write_string(startrow+7, startcol+3, "Hull  condition: ", REV_VID) ; 
write_string(startrow+9, startcol+3, label [4] , REV_VID) ; 
write_string( startrow+11, startcol+3, label [5] , REV_VID) ; 
write_string(startrow+13, startcol+3, label [6] , REV_VID) ; 

/*  write  data  */ 

write_string(startrow+5, startcol+3+6, name, REV_VID) ; 

sprintf (string, "%7 . If ", tow_data [4] ) ; 

write_string(startrow+7, startcol+3+strlen (label [5] ) , string, REV_VID) ; 

sprintf (string, "%7 . If ", tow_data [1] ) ; 

write_string(startrow+9, startcol+3+strlen (label [5] ) , string, REV_VID) ; 

sprintf (string, "%7 . If ", tow_data [2] ) ; 

write_string( startrow+11, startcol+3+strlen (label [5] ) , string, REV_VID) ; 

sprintf (string, "%7 . If", tow_data [3] ) ; 

write_string(startrow+13, startcol+3+strlen (label [5] ) , string, REV_VID) ; 

/*  write  units  */ 
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write_string(startrow+9, atartcol+3+strlen (label [5] ) +  9, "kts",  REV_VID) ; 
write_string(startrow+ll, startcol+3+atrlen (label [  5] ) +9,  "kta" , REVVID) 
write_atring(atartrow+13, atartcol+3+atrlen ( label (5] )+9, "deg", REV_VID) 

/*  write  footer;  prompt  for  confirmation  of  data  */ 

/*  write  footer  */ 

write_string (endrow-2, startcol+3, footer [  1  ]  , REV_VID) ; 

/*  create  normal  video  box  for  data  entry  */ 
vid_box (endrow-2, atartcol+3+atrlen (footer [ 1 ] )  ,  4) / 

/*  get  reaponse  */ 

get_dock_data (5, endrow-2, atartcol+3+strlen (footer [1 ] ) , tow_data) ; 

/*  test  if  data  correct  */ 

if  (  reaponae [0] !-' y'  &&  response [0 )!-' Y'  &&  response [0 ]! -NULL  ) 

( 

/•a**********************************************************/ 

/*  edit  data  */ 

/ft***********************************************************/ 

/*  erase  previous  message  */ 

start  —  started  +  3; 

for  (i-0;  Katrlen  (footer  [  1  ])  +5;  i  +  +  ) 

write_char (endrow-2, start  +  i, '  '  ,REV_VID) ; 

/*  write  quit  message  */ 

start- (endcol-startcol-strlen  (footer  [4  ])) /2  +  started; 

write_string (endrow, start, footer [ 4 ] , REV_VID) ; 

/*  write  edit  "menu"  */ 

start—  (endcol-startcol-atrlen  (footer  [2]  ))  /2  +  started; 
write_string(startrow+15, atart, footer [2] , REV_VID) ; 
start- (endcol-startcol-strlen  (footer  [3]  )) /2  +  started; 
write_string(startrow+16, start, footer [3] , REV_VID) ; 

/*  write  function  key  indicators  in  N0RM_VID  */ 

for (i-0;  i<2;  i++) 

{ 

start- (endcol-startcol-strlen  (footer  [2]  ))  /2  +  started; 

write_char (atartrow+15, start+i, footer [2] (i] ,N0RM_VID) ; 

write_char (atartrow+15, start+8+i, footer [2] (i+8] ,N0RM_VID) ; 

write_char (startrow+15, atart+16+i, footer (2] [i+16] ,N0RM_VID) ; 

start- (endcol-startcol-strlen  (footer  [  3]  )) /2  +  started; 

write_char(startrow+16, atart+i, footer [3] (i] ,N0RM_VID) ; 

write_char (atartrow+16, start+8+i, footer [3] [i+8] ,N0RM_VID) ; 
I 

/*  move  curaor  to  Fl  highlight  */ 

cursor_on ( ) ; 

start- (endcol-atartcol-atrlen  (footer  [2]  )) /2  +  started; 

goto_xy (atartrow+15, atart) ; 

/*  get  user's  choice  */ 
while  (1) 
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{ 


key=get_special () ; 

/a***************/ 

if  (key«=Fl)         /*  drydock  name  */ 
{  /****************/ 

cursor_off ( )  ; 

/*  allocate  enough  memory  for  menu  screen  buffer*/ 

p  =  (unsigned  char  *)  malloc (2* (endrow-startrow+1 ) * (endcol-startcol+1 ) ) 

if(!p)  exit(l);  /*  install  error  handler  here  */ 

/*  save  the  current  screen  data  */ 

save_screen  (startrow,  started,  endrow,  endcol,  p)  ; 

get_dock (choice, dock_data, name) ; 

/*  restore  the  original  screen*/ 

restore_screen (startrow, startcol, endrow, endcol,  p) ; 

free (p) ; 

write_string(startrow+5, start co 1+3+6, name, REV_VID) ; 

cursor_on () ; 

start= (endcol-startcol-strlen (footer [2] )) /2  +  startcol; 
goto_xy (startrow+15, start)  ; 
}  /******************/ 

else  if  (key==F2)    /*  hull  condition  */ 
/  /A*****************/ 

vid_box (startrow+7, startcol+3+strlen (label ( 5] ) +2, 6) ; 

get_dock_data (0, startrow+7, startcol+3+strlen (label [5] ) +2, tow_data) ; 

for  (i-0;  i<7;  i++) 

write_char (startrow+7, startcol+3  +  strlen (label [5] ) +l  +  i, '  '  , REV_VID) ; 
sprintf (string, "%7 . If ", tow_data [0] ) ; 

write_string (startrow+7 , startcol+3+strlen (label [ 5 ] ) , string, REV_VID) ; 
cursor_on () ; 

start= (endcol-startcol-strlen (footer [2] )) /2  +  startcol; 
goto_xy (startrow+15, start+8)  ; 

else  if  (key»F3)    /*  tow  speed  */ 

vid_box (startrow+9, startcol+3+strlen (label [5] ) +2,  6)  ; 

get_dock_data (1, startrow+9, startcol+3+strlen (label [5] ) +2,  tow_data) ; 

for  (i-0;  i<7;  i++) 

write_char (startrow+9, startcol+3+strlen (label [5] ) +l+i, '  ' ,REV_VID) ; 
sprintf (string, "%7 . If ", tow_data [1] )  ; 

write_string (startrow+9, startcol+3+strlen (label [5] ) , string, REV_VID) ; 
cursor_on () ; 

start- (endcol-startcol-strlen (footer [2] )) /2  +  startcol; 
goto_xy (startrow+15, start+16) ; 
\  /**************/ 

else  if  (key—F4)    /*  wind  speed  */ 

vid_box(startrow+ll, startcol+3+strlen (label [5] ) +2, 6) ; 

get_dock_data (2, startrow+11, startcol+3+strlen (label [5] ) +2, tow_data) ; 

for  (i=0;  i<7;  i++) 

write  char (startrow+11, startcol+3+strlen (label [5] )+l+i, '  ' , REV  VID) ; 
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sprintf (string, "%7. If", tow_data [2] ) ; 

write_string(startrow+ll, started +3 +strlen (label [5] ) , string, REV_VID) ; 
cursor_on () ; 

start= (endcol-startcol-strlen (footer [3] )) /2  +  startcol; 
goto_xy (startrow+16, start) ; 
i  /****■**************/ 

else  if  (key==F5)    /*  wind  direction  */ 
/  /a*****************/ 

vid_box(startrow+13, start col+3+strlen (label [5]  )  +2,  6)  ; 

get_dock_data (3, startrow+13, startcol+3+strlen (label [5] ) +2, tow_data) ; 

for  (i-0;  i<7;  i++) 

write_char (startrow+13, startcol+3+strlen (label [ 5] ) +  l  +  i,  '  '  , REV_VID) 
sprintf (string, "%7 . If ", tow_data [3] ) ; 

write_string (startrow+13, startcol+3+strlen (label [5] ) , string, REV_VID) ; 
cursor_on () ; 

start= (endcol-startcol-strlen (footer [3] )) /2  +  startcol; 
goto_xy (startrow+16, start+8) ; 

} 

else  if  (key==INSERT) 

{ 

/*  erase  menu  */ 

start™ (endcol-startcol-strlen (footer [2] )) /2  +  startcol; 

for  (i-0;  Kstrlen  (footer  [2]  )  +1;  i++) 

{ 

write_char (startrow+15, start+i, '  ' , REV_VID) ; 
write_char (startrow+16, start+i, '  ' , REV_VID) ; 

} 

/*  erase  message  */ 

start  =  (endcol-startcol-strlen (footer [4] )) /2  +  startcol; 

for  (KO;  Kstrlen  (footer  [4  ])  ;  i++) 

write_char (endrow, start+i, 205,REV_VID) ; 
break; 
) 
) 
} 

else      /*  no  editing  required  */ 
( 

/*  erase  previous  message  */ 

start  =  startcol  +3; 

for  (i-0;  i<strlen (footer [0] ) +4;  i++) 

write_char(endrow-2, start+i, '  ' ,REV_VID) ; 

} 

/*  prompt  to  save  data  to  file  */ 

start  ■  startcol  +  3; 

write_string(endrow-2, start, footer [5] , REV_VID)  ; 

vid_box(endrow-2, start+strlen (footer [5] )  ,  4)  ; 

get_dock_data(5,endrow-2, start+strlen (footer (5] ) , tow_data) ; 

if  (  response [0] !-'n'  &&  response [0] !»' N'  )     /*  save  data  */ 

{ 

/*  erase  previous  message  */ 

start  »  startcol  +3; 

for  (i-0;  Kstrlen  (footer  [5] ) +4  ;  i++) 

write  char (endrow-2, start+i, '  ' , REV  VID) ; 
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save_dock_f ile  (startrow,  started,  endrow,  endcol,  name, 
dock  data, tow  data); 


} 

/»*****»*******»**<■»*»»**■**(.*****»*».<.»<.»».►****(.**(./.<.(.>(.<.<.>■*•■»»»►►*•»------••• 

This  function  computes  the  towing  resistance  of  a  drydock  based 
on  the  method  in  section  G-2  of  the  U.S.  Navy  Towing  Manual. 

A****************************************************************************/ 

float  square () ; 

void  get  dock_resist (name, tug_data, dock_data,  tow_data,  tension) 

char  "name; 

float  *tug_data; 

float  *dock_data; 

float  *tow_data; 

float  "tension; 

{ 

static  char  header (]  ■ 


"RESISTANCE" 


); 


static  char  "label []  - 

{ 

'Drydock: ", 
•Table  G-4  data", 
'   fl:", 
'   f2:", 
'   f3:", 

'   Wetted  surface  area:' 
'   Cross  sectional  area' 
•     Below  waterline:", 
Above  waterline:", 
'Resistance", 
'   Frictional:", 
'   Wave  forming:", 

Wind:", 

Hawser: ", 

Total:" 

); 


int  row,  col,  i, 

int  start; 

char  string [81]; 


key; 


float  friction; 
float  wave; 
float  wind; 
float  fl; 
float  resistance; 
float  haw  res; 
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cursor_of f ( ) ; 

/*  convert  hull  condition  to  fl  coefficient  */ 
fl  -  tow_data[4]/10.0  *  (0.8  -  0.45)  +  0.45; 

/*  compute  resistance  */ 

friction  -  fl  *  dock_data(0]  *  square  (tow_data  ( 1  ]  /  f> .  0  )  ; 

wave  -  2.85*dock_data(l] *dock_data [ 2  ] *square (tow_data [ 1 ] ) *1 .2; 

wind  -  dock_data[4) *0 . 004 *square (tow_data ( 1 ] +tow_data [2] ) *dock_data ( 3 

resistance  -  friction  +  wave  +  wind; 

/*  save  data  for  report  */ 

resist_dat [0] -wind; 

wave_height (tow_data [2]  , &resist_dat [ 1 ] )  ; 

resist_dat [ 2 ] —wave; 

resist_dat [3] -friction; 

resist_dat [4 ] -0 .0;  /*  no  propeller  resistance  */ 

/*  compute  hawser  resistance  */ 

hawser_resist (tug_data, tow_data [ 1 ] , resistance,  &haw_res) ; 

/*  compute  total  resistance  */ 
♦tension  -  resistance  +  haw_res; 

/a***********************************************************/ 

/*  display  results  */ 

/A***********************************************************/ 

/*  draw  background  and  border  */ 

draw_window  (atartrow,  started,  endrow,  endcol,  DOUBLE,  PEV_VID)  ; 

/*  write  header  */ 

write_header  (startrow,  started,  endcol,  header,  REV_VID)  ; 

/*  write  labels  */ 
for  (i-0;  i<15;  i++) 

write_string(startrow+4+i, startcol+3, label [i] ,REV_VID) ; 

/a**********************/ 

/*     write  data        */ 
/a**********************/ 

/*  drydock  name  */ 

write_string(startrow+4, startcol+3+strlen (label [0] ) +1, name, REV_VID) ; 

sprintf (string, "%7.2f", fl) ;  /*  fl  */ 

write_string(startrow+6, start col+3+strl en (label [5]), string, PEV_VID) ; 

sprintf (string, "%7 . 2f ", dock_data ( 1] ) ;    /*  f2  */ 
write_string(startrow+7, startcol+3+strlen (label [5] ) , string, PEV_VID) ; 

sprintf (string, "%7.2f",dock_data [3] ) ;    /*  f3  */ 
write_atring(startrow+8, startcol+3+atrlen (label [5] ) , string, PEV_VID) ; 
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sprintf (string, "%7. Of ", dock_data[0] ) ;    /*  wetted  surface  area  */ 
write_string(startrow+9, start col+3+strlen (label [5] ) , string, REV_VID) ; 

sprintf (string, "%7 . Of ", dock_data [2] ) ;    /*  below  waterline  cross  sect  */ 
write_string ( startrow+1 1 , started +3 +strlen (label [ 5] ) , string, REV_VID) ; 

sprintf (string, "%7 . Of ", dock_data [4] ) ;    /*  above  waterline  cross  sect  */ 
write_string (startrow+12, startcol+3+strlen (label [ 5] ) , string, REV_VID) ; 

sprintf (string, "%7 .Of ", friction) ;        /*  frictional  resistance  */ 
write_string( startrow+1 4, startcol+3+strlen (label [5] ) , string,  REV_VID) ; 

sprintf (string, "%7 . Of ", wave) ;  /*  wave-forming  resistance  */ 

write_string (startrow+1 5, startcol+3+strlen (label [5] ) , string, REV_VID) ; 

sprintf (string, "%7 . Of ", wind) ;  /*  wind  resistance  */ 

write_string( startrow+1 6, startcol+3+strlen (label [5] ) , string, REV_VID) ; 

sprintf (string, "%7 . Of ", haw_res) ;  /*  hawser  resistance  */ 

write_string( startrow+1 7, startcol+3+strlen (label [5] ) , string, REV_VID) ; 

sprintf (string, "%7 . Of ", resistance) ;     /*  total  resistance  */ 
write_st ring (startrow+1 8, startcol+3+strlen (label [5] ) , string, REV_VID) ; 

/*  write  units  */ 

write_string(startrow+9,endcol-6, "sq  ft",REV_VID) ; 
write_string(startrow+ll, endcol-6, "sq  ft", REV_VID) ; 
write_string (startrow+12, endcol-6, "sq  ft",REV_VID) ; 
for  (i=0;  i<5;  i++) 

write_string(startrow+14+i, endcol-6, "lbs", REV_VID) ; 

/*  pause;  wait  for  INS  key  before  continuing  */ 

pause (startrow, startcol, endrow, endcol, footer ( 4 ] , REV_VID) ; 


I 


/A*************************************************************** 

This  function  computes  the  square  of  a  number, 
a****************************************************************/ 

float  square (x) 

float  x; 

i 

return  (x*x) ; 

} 

/A*************************************************************** 
This  function  gets  the  user' s  input  for  the  data  requested 
in  the  function  get_hull_cond () .  Uses  screen_getstring ( )  for 
screen  I/O.  Some  data  checking  is  performed  for  each  data  type. 

•♦a**************************************************************/ 

void  get_dock_data (i,  row,  col,  data) 
int  i ; 
int  row; 
int  col; 
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float  *data; 

{ 

int  nbr;  /*  required  arg  for  stofa        */ 

int  status;  /*  takes  return  value  for  stofa  */ 

char  string[24];  /*  input  string  */ 

char  textl (39),  text2[39];  /*  error  message  text  */ 

int  j,  k;  /*  counters  */ 

cursor_on () ;  /*  turn  on  cursor  */ 

goto_xy (row, col) ;  /*  move  cursor  to  start  of  box   */ 

/*  get  user  input  */ 

screen_getstrg (i, row, col, string, NORM_VID,  input) ; 

if  (i  !=  5) 
{ 

/*  check  for  valid  numeric  input  */ 
for  (k=0;  k<strlen (string) ;  k++) 
{ 

if  (  string(k]==' .'  ) 
{ 

if  (string[k+l]==' .' ) 
{ 

sprintf (text 1, "Invalid  entry;  try  again"); 
display_error (ERROR, textl, "  ") ; 
vid_box (row, col, 7) ; 
get_dock_data (i, row, col, data) ; 
return  ; 
> 
} 
else  if  (string[k]<'0'  ||  string [k] >' 9' ) 

i 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR, textl , "  " ) ; 
vid_box (row, col, 7) ; 
get_dock_data (i, row, col, data) ; 
return  ; 
> 
> 

/*  if  input  valid  numbers  only,  convert  string  to  float  */ 
status  «  stofa (string, fidata [i] , Snbr, 1) ; 
> 

else  if  (i»5) 
( 

strcpy (response, string) ; 
> 

/*  check  data  for  consistency  */ 

if  (i=»»l)     /*  check  towing  speed  */ 

< 

if  (data[i]O0.0  ||  data(i]  >12 .0) 
{ 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR, textl,  "  ") ; 
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vid_box (row, col, 6) ; 

get_dock_data (i, row, col, data) ; 

return  ; 
} 

else  if  (data[i]>10.0  &&  data ( i ] <-12 . 0) 
{ 

sprintf (textl, "Planned  tow  speed  is  higher  than"); 

sprintf (text 2, "normally  recommended" ) ; 

display_error (WARN, textl,  text2) ; 
) 
) 
if  (i™2)     /*  check  wind  speed  */ 

i 

if  (data[i]<0) 
{ 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR, textl,  "  ")  ; 

vid  box (row, col, 6) ; 

get_dock_data (i, row, col, data) ; 

return  ; 
} 

else  if  (data(i]>48.0)        /*  ???  is  this  true  with  P-M  spectrum  ???  */ 
{ 

sprintf (textl, "Outside  range  of  Fig.  G-2"); 

sprintf (text2, "«>pleaae  enter  new  wind  speed<— "); 

display_error (ERROR, textl, text2) ; 

vid_box (row, col,  6) ; 

get_dock_data (i, row, col ,  data)  ; 

return  ; 
} 
I 
if  (i— — 3)     /*  check  wind  direction  */ 

{ 

if  (data[i]<0) 

( 

sprintf (textl, "Use  only  positive  angles"); 

display_error (WARN, textl,  "  ")  ; 

data[i]  -  -data(i); 
} 
else  if  (data[i]>180.0  &&  data [i] <360 .0) 

{ 

sprintf (textl, "Use  angles  between  0  and  180"); 
display_error (WARN, textl, "  "); 
data[i]  -  3  60.0  -  data[i]; 

) 

else  if  (data[i)>70.0  &&  data [i] <110 . 0) 

{ 

sprintf (textl, "No  extreme  tension  data  for  beam  seas"); 

sprintf  (text2,  "—>  use  angles  <  70  or  >  110  <«"); 

display_error (ERROR, textl, text2) ; 

vid  box (row, col, 6) ; 

get_dock_data (i, row, col, data) ; 

return  ; 
) 
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else  if  (data[i]>360.0) 
{ 

aprintf (textl, "Invalid  entry;  try  again") 

display_error (ERROR, textl, "  ") ; 

vid_box (row, col, 6) ; 

get_dock_data (i, row, col, data) ; 

return  ; 
) 
) 

if  <i--4)     /*  check  hull  condition  */ 
{ 

if  (data[i]<0.0  ||  data (i] >10 . 0) 
{ 

aprintf (textl, "Invalid  entry;  try  again") 

display_error (ERROR, textl, "  ") ; 

vid  box (row, col, 6) ; 

get_dock_data (i, row, col, data) ; 

return  ; 
} 
} 

cursor_of f ( ) ; 
goto_xy (0,0); 


} 


/a******************************************************************** 
Thia  function  eatimatea  the  diaplacement  of  floating  drydocks 
and  bargea  baaed  on  the  assumptions: 
Cb  -  0.8 
Cx  -  0.9 
a*********************************************************************/ 

void  eat_disp (i, data, tow_data) 

int  i; 

float  *data; 

float  *tow_data; 

{ 

float  length, beam, draft ; 

float  coefb-0.8;  /*  block  coefficient  */ 

float  coefx-0.9;  /*  max  section  coefficient  */ 

if  (i--0)     /*  drydock  */ 
( 

length-data [ 5 ] ; 

beam— data ( 6 ] ; 

draft    -    data [2] / (coefx*beam) ; 

tow_data(0]    -    length*beam*draft*coefb/35 . 0; 

} 

elae  /*    barge    */ 

( 

length-data [0] ; 

beam— data [1] ; 

draft-data [3] ; 

tow_data[0]    -    length*beam*draf t*coefb/35 . 0; 
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} 

/A*************************************************************** 
This  function  computes  the  mean  tension  of  a  floating 
drydock  and  its  towing  hawser.  It  duplicates  the  computations 
in  the  function  get_dock_resist () ,  but  is  intended  as  a  stand 
alone  function  for  use  by  other  program  modules. 

a****************************************************************/ 

void  dock_resist (tug_data, dock_data, tow_data,  tension) 

float  *tug_data; 

float  *dock_data; 

float  *tow_data; 

float  *tension; 

( 

float  fl; 

float  friction; 

float  wave; 

float  wind; 

float  resistance; 

float  haw_res; 

/*  convert  hull  condition  to  fl  coefficient  */ 
fl  =  tow_data[4]/10.0  *  (0.8  -  0.45)  +  0.45; 

/*  compute  resistance  */ 

friction  ■  fl  *  dock_data[0]  *  sguare (tow_data [ 1] /6 . 0) ; 

wave  -  2.85*dock_data[l] *dock_data [ 2] *sguare (tow_data ( 1 ] ) *1 .2; 

wind  -  dock_data[4) *0 .004 'square (tow_data [ 1] +tow_data [2] ) *dock_data [ 3 ] 

resistance  -  friction  +  wave  +  wind; 

/*  compute  hawser  resistance  */ 

hawser_resist (tug_data, tow_data [1] , resistance, &haw_res) ; 

/*  compute  total  resistance  */ 
♦tension  ■  resistance  +  haw  res; 


/a*************************************************************** 

This  function  retrieves  tow  data  from  a  user  specified  file, 
a****************************************************************/ 

get_dock_f ile (startrow, startcol, endrow, endcol, hull_no, 

dock_data, tow_data) 
int  startrow, startcol; 
int  endrow, endcol; 
char  *hull_no; 
float  *dock_data; 
float  *tow_data; 
{ 

FILE  *in; 

char  fname(13]; 

char  inline (81]; 

char  text 1(39], text2(39] ; 

int  i, j, status, nbr; 
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float  array (2]; 
int  start; 

/*  writ*  header  */ 

start  -  (endcol-startcol-strlen  (labell  [  1]  )  ) /2  +  startcol; 

write_string(startrow+8, start, labell ( 1] , REV_VID) ; 

/*  write  prompt  */ 
for  (i-0;  i<2;  i++) 
{ 

start  ■  startcol+3; 

write_string(startrow+10+i, start, labell [i+2] , REV_VID) ; 

) 

vid_box (startrow+11, start +strlen (labell [3] ) , 9) ; 

sprintf (textl, "Type  'Q'  to  quit"); 

start  ■  (endcol-startcol-strlen (textl) ) /2  +  startcol; 

write_string (endrow-3 , start, textl , REV_VID) ; 

get_fname (6,1, startrow+11, start col+3+strl en (labell [3] ) , fname) ; 

/*  check  for  quit  option  */ 
if  (fname (0 ]-■' Q' ) 

{ 

cursor_of f () ; 

goto_xy (0,0); 

return  (-1) ; 
> 

in=f open (fname, "r") ; 

if  (in-- NULL) 

{ 

sprintf (textl, "Can' t  open  file  %s", fname); 

display_error (ERROR, textl, "  ") ; 

clear (startrow+8, startcol  +  1, endrow-3, endcol-1,  REV_VID)  ; 

status=get_dock_f ile (startrow, startcol, endrow,  endcol,  hull_no, 
dock_data, tow_data) ; 

return  (0) ; 
} 

else 
{ 

/*  read  data  from  file  */ 

fgets (inline, 81, in) ; 

strstrip( inline) ; 

/*  teat  for  valid  tow  file  */ 

if  (!  (strnemp  (inline, "!  Tow  data  file", 15))) 

( 

fgets (inline, 81, in) ; 

fgets (inline, 81, in) ; 

strstrip (inline) ; 

/*  test  if  drydock  file  */ 

if  (strnemp (inline, "DRYDOCK", 7) ) 

{ 

sprintf (textl, "%a  ia  not  a", fname); 
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sprintf (text2, "drydock  data  file!"); 

display_error (ERROR, textl, text2) ; 

clear  (startrow+8,  startcol+1,  endrow-3,  endcol-1,  REV_VID)  ; 

status«get_dock_f ile  (startrow,  started,  endrow,  endcol,  hull  no, 

dock_data, tow_data)  ; 
return  (0) ; 


} 


/*  get  hull  number  */ 
fgets (inline,  81,  in)  ; 
fgets (inline, 81,  in)  ; 
atrstrip ( inline )  ; 
atrncpy (hull_no, inline,  24 )  ; 
strstrip (hull_no) ; 

/*  read  remaining  tow  data  */ 

for  (i=0;  i<5;  i++) 

{ 

fgets (inline, 81, in) ; 

fgets (inline, 81, in) ; 

status=stof a (inline, array, inbr, 1) ; 

tow_data [i] -array [0] ; 
} 

/*  read  drydock  data  */ 
for  (i-0;  i<7;  i++) 
{ 

fgets (inline, 81, in) ; 

fgets (inline, 81, in) / 

status*stofa ( inline, array, &nbr, 1) ; 

dock_data [ i ] -array [ 0 ] ; 

} 

fcloae (in) ; 
} 

else 
{ 

sprintf (textl , "%s  is  not  a  tow  data  f ile ! ", fname) ; 
display_error (ERROR, textl,  "  ")  ; 

clear (startrow+8, startcol+1 , endrow-3, endcol-1 , REV_VID) ; 
atatua"get_dock_f ile (startrow, startcol, endrow, endcol, hull_no, 

dock_data, tow_data) ; 
return  (0) ; 
) 
} 

return  (0) ; 
) 

/***************************►*******»**»►»**»**►»*********»*►*»►» 
This  function  writes  the  tow  data  for  floating  drydocks  to 

a  user  specified  file. 
****************************************»*»-»»**>»»»»►»►*»»»***»**/ 

void  save_dock  file (startrow, startcol, endrow, endcol, hull_no, 

dock_data, towdata) 
int  startrow, startcol, endrow, endcol; 
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char  *hull_no; 
float  *dock_data; 
float  *tow_data; 
{ 

FILE  *out; 

char  fname[13]; 

char  string [25]; 

char  textl [39]  ; 

int  start; 

/*  prompt  for  file  name  */ 

start  ■  start col  +  3; 

write_string(endrow-2, start, footer [6] , REV_VID) ; 

vid_box (endrow-2, start+strlen (footer [ 6] ) +4,  9)  ; 

get_fname (6,1, endrow-2, start+strlen (footer [6] ) +4,  fname) ; 
out=fopen (fname, "w") ; 

if  (out==NULL) 
{ 

sprintf (textl, "Can' t  open  file  %s", fname); 

display_error (ERROR, textl, "  ") ; 

save  dock_f ile (startrow, startcol, endrow, endcol, hull_no, 
dock_data, tow_data) ; 

return; 
} 

else 
{ 

/*  write  tow  data  to  file  */ 

fprintf (out, " !  Tow  data  file\n"); 

fprintf (out, " !  Tow  type :\n") ; 

fprintf (out, "DRYDOCK\n") ; 

fprintf (out, " !  Hull  number :\n"); 
fprintf (out, "%s\n", hull_no) ; 

fprintf (out, " !  Estimated  displacement :\n")  ; 
sprintf (string, "%-. If \n", tow_data [0] )  ; 
fprintf (out, "%s", string)  ; 

fprintf (out, " !  Tow  speed  (kts):\n"); 
sprintf (string, "%-. lf\n", tow_data[l] ) ; 
fprintf (out, "%s", string)  ; 

fprintf (out, "!  Wind  speed  (kts):\n"); 
sprintf (string, "%- .2f \n", tow_data [2] ) ; 
fprintf (out, "%s", string) ; 

fprintf (out, " !  Relative  wind  dir:\n"); 
sprintf (string, "%-.2f\n", tow_data[3] ) ; 
fprintf (out, "%s", string) ; 

fprintf (out, " !  Hull  condition: \n") ; 
sprintf (string, "%- .2f \n", tow_data [4] ) ; 
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fprintf (out, "%s", string)  ; 

/*  write  drydock  data  to  file  */ 
fprintf (out ,  " !  Wetted  surface  area:\n"); 
sprintf (string, "%-. Of \n", dock_data [0] )  ; 
fprintf (out, "%s",  string)  ; 

fprintf (out, " !  Form  factor  (f2):\n">; 
sprintf (string, "%-.2f \n", dock_data ( 1] ) ; 
fprintf (out, "%s", string) ; 

fprintf (out, " !  Cross-sectional  area  below  waterline  (B):\n") 
sprintf (string, "%-. 2f \n", dock_data [2] )  ; 
fprintf (out, "%s", string) ; 

fprintf (out, "!  Wind  coefficient  (f3):\n"); 
sprintf (string, "%-. 2f \n", dock_data [3] ) ; 
fprintf (out, "%s", string) ; 

fprintf (out, " !  Cross-sectional  area  above  waterline  (C):\n") 
sprintf (string, "%-• Of \n", dock_data [4] ) ; 
fprintf (out, "%s", string)  ; 

fprintf (out,  " !  Drydock  length : \n" ); 
sprintf (string,  "%-. lf\n", dock_data(5] )  ; 
fprintf (out, "%s", string)  ; 

fprintf (out, " !  Drydock  beam:\n"); 

sprintf  (string,  '*%-.  If  \n",  dock_data  [6]  )  ; 

fprintf (out, "%s", string) ; 
) 

f close (out) ; 
) 
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File:  barge. c 

Author:  Todd  J.  Peltzer 

Last  update:  3  May  1989 

This  file  contains  the  functions  which  support  computation  of  the 
resistance  of  floating  drydocks  and  barges. 

Functions : 

get_barge_resist ( ) 
barge_resist ( ) 
get_barge_data ( ) 
barge_summary ( ) 
save_barge_f ile ( ) 
get_barge_f ile ( ) 

♦include  "stdio.h" 
♦include  "dos.h" 
♦include  "keydef.h" 
♦include  "video. h" 

♦define  RAKE  0 
♦define  SHIPSHAPE  1 
♦define  SQUARE  2 

void  get_barge_data () ,  barge_summary ( ) ; 
void  barge_resist () , save_barge_f ile () ; 
float  square (); 

typedef  struct 

{ 

int  start col; 

int  endcol; 
}  data_box; 

static  data_box  input []  = 

{ 

{42,55},  /*  name  (dimension)  */ 

{40,53},  /*  name  (summary)  */ 

{46,52},  /*  hull  length  */ 

{46,52},  /*  beam  */ 

{46,52},  /*  hull  depth  */ 

{46,52},  /*  draft  */ 

{46,52},  /*  deckhouse  length  */ 

{46,52},  /*  deckhouse  width  */ 

{46,52},  /*  deckhouse  height  */ 

{54,58}  /*  yes/no  choice  */ 

}; 

static  char  response (4); 

static  char  *footer[]  = 
{ 

"Please  enter  data.", 
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"Is  all  data  correct?  (yes/no):  ", 

"Fl  Name  F2  Hull  F3  Tow", 

"F4  Wind  F5  Rel", 

"  Press  INS  to  continue  ", 

"   Save  data  to  file?  (yes/no):  ", 

"  Enter  tow  file  name:  " 


} 


static  char  *label[]  = 

{ 

"Name  or  hull  no:", 

"Hull  dimensions", 

"   Length:", 

"   Beam:", 

"   Depth:", 

"   Draft:", 

"Deckhouse  dimensions", 

"   Length:", 

"   Width:", 

"   Height:", 

"End  shape:" 
}; 

static  char  *labell[]  = 

{ 

"Name  or  hull  no:", 

"Data  corresponding  to  Table  G-4", 

"   fl:", 

"   f  2  :  "  , 

"   f  3  :  "  , 

"   Wetted  surface  area:", 

"   Cross  sectional  area", 

"     Below  waterline:", 
Above  waterline:", 

"Resistance", 

"   Frictional:", 

"   Wave_f orming : " , 

"   Wind : " , 

"   Hawser:", 

"  Total : " 

}; 

static  char  *menu[]  ■ 

( 

"Rake  ended   ", 
"Ship  ended   ", 
"Square  ended" 
>; 

static  char  *label2[]  - 
{ 

"Options", 

"Retrieve  File", 

"Enter  name  of  tow  file", 
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"to  retrieve  (8  char  max) 


>; 


static  char  *menul[]  = 

{ 

"1)  Enter  new  data  ", 
"2)  Edit  existing  data", 
"3)  Retrieve  data  file" 

); 


static  int  startrow=2; 
static  int  startcol=20; 
static  int  endrow=22; 
static  int  endcol=60; 

static  char  *header[]  = 
{ 

"BARGE  DATA", 

"DATA  SUMMARY", 

"RESISTANCE" 

}; 


extern  float  barge_res [6] , resist_dat [5] ; 


/*  arrays  for  report  data  */ 


/*  hull  dim  (4),  dkhs  dim  (3),  end  shape  */ 


/**************************************************************************** 
This  function  prompts  the  user  for  the  dimensions  of  the  barge  hull 
and  deckhouse  (and  allows  editing) ,  then  prompts  for  the  hull  condition, 
the  tow  speed  and  wind  speed,  prints  a  summary  of  input  data  (and  allows 
editing) ,  then  computes  the  towing  resistance  of  the  barge  and  prints 
a  summary. 

***************  ******************************************************** ******/ 

get_barge_resist (flag, name, tug_data, tow_data, barge_data, tension) 

int  *flag; 

char  *name; 

float  *tug_data; 

float  *tow_data; 

float  *barge_data; 

float  *tension; 

( 

int  row,  col,  i,  key; 

int  start, choicel, status; 

char  string[81]; 

char  textl[39] ,text2[39]; 

float  vtow; 

float  vwind; 

float  fl, f2,f3; 

float  wet  surf; 

float  uw_xsect; 

float  abv_xsect; 

float  hlength; 

float  beam; 

float  depth; 

float  draft; 

float  dlength; 


tow  speed 
wind  speed 


*/ 
*/ 


•/ 


resistance  coefficients 

wetted  surface  area  */ 
/*  underwater  cross-sectional  area  */ 
/*  abovewater  cross-sectional  area  */ 
/*  hull  length  */ 
/*  hull  beam    */ 
/*  hull  depth   */ 
/*  full  load  draft   */ 
/*  deckhouse  length  */ 
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f:>at  width;  /*  deckhouse  width   */ 

f^at  height;  /*  deckhouse  height  */ 

ic  end_shape; 

i :  :>at  friction; 

f jat  wave_resist; 

f^at  wind_resist; 

t :>at  resistance; 

- ;>at  haw_res; 

i  (!flag[l])  /*  barge  data  does  not  exist  */ 

{ 

*  initialize  data  */ 

or  (i=0;  i<8;  i++) 
barge_data [i]  =  0.0; 
) 

clear  background  */ 
:;ar (startrow+1, startcol  +  1, endrow-1, endcol-1, REV  VID)  ; 

/  write  header  */ 

wite  header  (startrow,  started,  endcol,  header  [0]  ,  REV_VID)  ; 

i  (!flag[l]  &&  ! flag [2])         /*  enter  new  data  */ 

{ 

lear (startrow+5, startcol  +  1, endrow-3, endcol-1, REV_VID)  ; 

) 

eie  if  (flag[l]  &&  ! flag (2])  ;   /*  edit  existing  data  */ 

tie  if  (flag [2])     /*  retrieve  data  from  file  */ 

{ 

tatus=get_barge_f ile (name, barge_data, tow_data) ; 

f  (status<0) 

cursor_of f () ; 
flag [2] =0; 
return  (-1)  ; 

st_disp (1, barge_data, tow_data) ; 
} 
clar (startrow+5, startcol+1, endrow-3, endcol-1, REV_VID) ; 

/♦write  labels  */ 
fc  (i-0;  i<10;  i++) 

rite_string(startrow+5+i,startcol+5, label [i] ,REV_VID) ; 
wrte_string( startrow+1 6, startcol+5, label [10] ,REV_VID) ; 

/*write  units  */ 
fc  (i=0;  i<4;  i++) 

rite_string ( st artrow+7+i , endcol-5 , " ft " , REV_VID ) ; 
fc  (i=0;  i<3;  i++) 

rite_string(startrow+12+i, endcol-5, "ft", REV_VID) ; 

if(flag[l]  ||  flag[2])  /*  display  data  */ 

{ 

rite_string (startrow+5, startcol+5+strlen ( label [0]) +2, name, REV_VID) 
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3tart=startcol+5+strlen (label [6] ) +  1; 

for  (i=0;  i<4;  i++) 

sprintf (string, "%7 . If", barge_data [i] ) ; 
write_string (startrow+7+i, start, string, REV_VID) ; 

for  (i=0;  i<3;  i++) 

sprintf (string, "%7 . If ", barge_data [i+4 ] ) ; 
write_string(startrow+12+i, start, string, REV_VID) ; 

if  (bargo_data(7]  ==  RAKE) 

write_string (startrow+16, start+1, menu [0] , REV_VID) ; 
else  if  (barge_data[7]  ==  SHIPSHAPE) 

write_string( startrow+16, start+1, menu [1] , REV_VID) ; 
lse  if  (barge_data[7]  ==  SQUARE) 

write_st ring (startrow+16, start+1, menu [2] , REV_VID) ; 

} 

else  if  (!flag[l]  &&  !flag[2])  /*  enter  new  data  */ 

{ 

/*  write  footer  */ 

start  =  (endcol-startcol-strlen  (footer  [0]  )) /2  +  started; 

write_string(endcol-2, start, footer [0] , REV_VID) ; 

/a*****************************************/ 

/*  get  data  */ 

/a*****************************************/ 

/*  get  name  */ 

vid_box (startrow+5, startcol+5+strlen (label [0]  )  +1,  14  )  ; 

get_barge_data (0, startrow+5, startcol+5+strlen (label [0] ) +1, name, barge_data) 

for  (i=0;  i<15;  i++) 

write_char (startrow+5, startcol+5+strlen (label [0] )+l+i, '  ' ,REV_VID) ; 
write_string( startrow+5, startcol+5+strlen (label [0] ) +2, name, REV_VID) ; 

start=startcol+5+strlen (label [6] ) +1; 

/*  get  hull  length  */ 

vid_box (start row+7, start, 7) ; 

get_bar ge_dat a ( 2 , st artr ow+7 , start , name , barge_data ) ; 

for  (i=0;  i<7;  i++) 

write_char (startrow+7, start +i, '  ' ,REV_VID) ; 
sprintf (string, "%7 . If ", barge_data [0] ) ; 
write_string( startrow+7, start, string, REV_VID) ; 

/*  get  beam  */ 

vid  box (startrow+8, start, 7) ; 
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get_barge_data(3, startrow+8, start, name, barge_data) ; 
for  (i=0;  i<7;  i++) 

write_char ( startrow+8 , start +i , '  ' , REV_VID ) ; 
sprintf (string, "%7 . If", barge_data [1] ) ; 
write_string( startrow+8, start, string, REV_VID) ; 

/*  get  hull  depth  */ 

vid_box (startrow+9, start, 7) ; 

get_barge_data (4, startrow+9, start, name, barge_data) ; 

for  (i=0;  i<7;  i++) 

write_char ( startrow+9 , start+i , '  ' , REV_VID ) ; 
sprintf (string, "%7 . If ", barge_data [2] ) ; 
write_string( startrow+9, start, string, REV_VID) ; 

/*  get  draft  */ 

vid_box (startrow+10, start, 7 ) ; 

get_barge_data (5, startrow+10, start, name, barge_data) ; 

for  (i=0;  i<7;  i++) 

write_char (startrow+10, start+i, '  ' , REV_VID) ; 
sprintf (string, "%7 . If", barge_data [3] ) ; 
write_string (startrow+10, start, string, REV_VID) ; 

/*  get  deckhouse  length  */ 

vid_box (start row+ 12, start,  7) ; 

get  barge_data (6, startrow+12, start , name, barge_data) ; 

for  (i=0;  i<7;  i++) 

write_char (startrow+12, start+i, '  ' ,REV_VID) ; 
sprintf (string, "%7 . If ", barge_data [4 ] ) ; 
write_string (startrow+12, start, string, REV_VID) ; 

/*  get  deckhouse  width  */ 

vid_box (startrow+13, start, 7) ; 

get_barge_data (7, startrow+13, start , name, barge_data) ; 

for  (i=0;  i<7;  i++) 

write_char (startrow+13, start+i, '  ' , REV_VID) ; 
sprintf (string, "%7 . If ", barge_data [5] ) ; 
write_string (startrow+13, start, string, REV_VID) ; 

/*  get  deckhouse  height  */ 

vid_box (startrow+14, start,  7)  ; 

get_barge_data (8, startrow+14, start, name, barge_data) ; 

for  (i»0;  i<7;  i++) 

write_char (startrow+14, start+i, '  ' ,REV_VID) ; 
sprintf (string, "%7. If ", barge_data [6] ) ; 
write_string( startrow+14, start, string, REV_VID) ; 

/*  get  end  shape  */ 

start  =  startcol+5+strlen (label [8] )+7; 

barge_data[7]  =  popup (menu, "",3, startrow+15, start, SINGLE, RE V_VID,  0) 

if  (barge_data[7]  =-  RAKE) 
{ 

write_string(startrow+16, start+1, menu [0] , REV_VID) ; 

) 
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else  if  (barge_data(7]  ==  SHIPSHAPE) 
{ 

write_string (startrow+16, start+1, menu ( 1 ]  ,  REV_VID)  ; 
) 

else  if  (barge_data[7]  ==  SQUARE) 
{ 

write_string (startrow+16, start+1, menu [2 ] , REV_VID) ; 


} 


/*     prompt  user  for  confirmation  of  data;  give  edit  option      */ 
/a****************************************************************/ 

start  =  startcol+3; 

write_string(endrow-2, start, footer [ 1] , REV_VID) ; 

vid  box (endrow-2, start+strlen (footer [ 1] )  ,  4 ) ; 

get  barge  data (9, endrow-2 , start+strlen (footer ( 1 ] ) , name, barge_data) ; 

/*  test  if  data  correct  */ 

if  (  response [0] !=' y'  &&  response [0] !=' Y'  &&  response [0] ! =NULL  ) 

{ 

/*  erase  previous  message  */ 

start  ■  startcol+3; 

for  (i=0;  Kstrlen  (footer  [1] ) +4;  i++) 

write_char (endrow-2, start +i, '  ' ,REV_VID) ; 

/*  write  quit  message  */ 

start=  (endcol-startcol-strlen  (footer  [4]  ))  /2  +  started; 

write_string(endrow, start, footer [4] , REV_VID) ; 


/*  write  function  key  indicators  in 
write_string(startrow+5, startcol+2, 
write  string (startrow+7, startcol+2, 
write_string ( st artrow+8 ,  startcol+2 , 
write_string ( st artrow+9 , startcol+2 , 
write_string(startrow+10, startcol+2 
write_string (startrow+12, startcol+2 
write_string (startrow+13, startcol+2 
write_string (startrow+14 ,  startcol+2 
write_string (startrow+16, startcol+2 


NORM_VID  */ 
"F1",N0RM_VID) ; 
"F2",NORM_VID) ; 
"F3",NORM_VID) ; 
"F4",N0RM_VID) ; 
, "F5",N0RM_VID) ; 
, "F6",NORM_VID) ; 
, "F7",N0RM_VID) ; 
, "F8",NORM_VID) ; 
, "F9",NORM  VID) ; 


/*  move  cursor  to  Fl  highlight  */ 

cursor_on ( ) ; 

got o_xy (start row+5, startcol+2) ; 


/*  get  user's  choice 

while  (1) 

{ 


•/ 


start=startcol+5+strlen (label [6] )+l; 
key=get_special () ; 

if  (keya==Fl)     /*  hull  name  or  number  */ 

vid  box (start row+5, startcol+5+strlen (label [0] )+l, 14) 
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get_barge_data(0, startrow+5, startcol+5+strlen (label [0] ) +1, name, barge_data) 
for  (i=»0;  i<15;  i++) 

write_char (startrow+5, startcol+5+strlen (label [0] ) +  l  +  i, '  ' , REV_VID) ; 
write_string( startrow+5, start col+5+strlen (label [0] ) +2, name, REV_VID) ; 
cursor_on () ; 
goto_xy (startrow+5, startcol+2) ; 

else  if  (key==F2)     /*  hull  length  */ 
{  /***************/ 

vid_box (start row+7, start, 7) ; 

get_barge_data (2, startrow+7, start , name, barge_data) ; 

for  (i=0;  i<7;  i++-) 

write_char ( startrow+7 , start +i , '  ' , REV_VID ) ; 
sprintf (string, "%7 . If", barge_data [0] ) ; 
write_st ring (start row+7, start, string, REV_VID) ; 
cursor_on () ; 
goto_xy (startrow+7,  startcol+2)  ; 

/*  check  deckhouse  length  for  consistency  with  this  input  */ 

if  (barge_data [4] >barge_data [0] )    /*  is  greater  than  hull  length  */ 

{ 

sprintf (text 1, "Deckhouse  is  longer  than  hull"); 

sprintf (text2, "==>  please  try  again  <=="); 

display_error (ERROR, textl, text2) ; 

vid_box (startrow+12, start, 7) ; 

get_barge_data (6, startrow+12, start, name, barge_dat a) ; 

for  (i=0;  i<7;  i++) 

write_char (startrow+12, start+i, '  ' ,REV_VID) ; 

sprintf (string, "%7 . If", barge_data [4] ) ; 

write_string( startrow+12, start, string, REV_VID) ; 

cursor_on () ; 

goto_xy (startrow+12, startcol+2) ; 

} 

\  /********/ 

else  if  (key==F3)      /*  beam  */ 
/  /  **  ******/ 

vid_box  (start row+-8,  start,  7)  ; 

get_barge_data (3, startrow+8, start, name, barge_data) ; 

for  (i=0;  i<7;  i++-) 

write_char ( startrow+8 , start+i , '  ' , REV_VID ) ; 
sprintf (string, "%7 . If ", barge_data [1] ) ; 
write_string( startrow+8, start, string, REV_VTD) ; 
cursor_on () ; 
goto_xy (startrow+8,  startcol+2)  ; 

/*  check  deckhouse  width  for  consistency  with  this  input  */ 
if  (barge_data [5] >barge_data[ 1] )    /*  is  greater  than  beam  */ 
{ 

sprintf (textl, "Deckhouse  is  wider  than  beam"); 

sprintf (text2, "»■>  please  try  again  <=="); 

display_error (ERROR, textl, text2) ; 

vid_box (startrow+13, start, 7) ; 

get_barge_data (7, startrow+13, start, name,barge_data) ; 

for  (i-0;  i<7;  i++-) 
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write_char (startrow+13, start+i, '  ' ,REV_VID) ; 
sprintf (string, "%7 . If ", barge_data [5] ) ; 
write_string (startrow+13, start, string, REV_VID) ; 
cursor_on () ; 
goto_xy (startrow+13 , startcol+2) ; 

} 
}  /**************/ 

else  if  (key==F4)      /*  hull  depth  */ 
{  /**************/ 

vid_box (startrow+9, start, 7) ; 

get_barge_data (4, startrow+9, start, name, barge_data) ; 

for  (i=0;  i<7;  i++) 

write_char (startrow+9, start+i, '  ' ,REV_VID) ; 
sprintf (string, "%7 . If", barge_data [2] ) ; 
write_string( startrow+9, start, string, REV_VID) ; 
cursor_on () ; 

goto_xy (startrow+9, startcol+2) ; 
\  / ****** ***  / 

else  if  (key==F5)      /*  draft  */ 

/  /****** ***  / 

vid_box (startrow+10, start,  7)  ; 

get_barge_data (5, startrow+10, start, name, barge_data) 

for  (i-0;  i<7;  i++) 

write_char (startrow+10, start+i, '  ' ,REV_VID) ; 
sprintf (string, "%7 . If ", barge_data [3] ) ; 
write_string (startrow+10, start, string, REV_VID) ; 
cursor_on () ; 

goto_xy (startrow+10 , startcol+2) ; 
j  /********************/ 

else  if  (key==F6)     /*  deckhouse  length  */ 
/  /********************/ 

vid_box (startrow+12, start, 7) ; 

get_barge_data (6, startrow+12, start, name, barge_data) 

for  (i=0;  i<7;  i++) 

write_char (startrow+12, start+i, '  ' , REV_VID) ; 
sprintf (string, "%7 . If", barge_data [4 ] ) ; 
write_string (startrow+12, start, string, REV_VID) ; 
cursor_on () / 

got o_xy (startrow+12, startcol+2) ; 
\  /*******************/ 

else  if  (key=»F7)      /*  deckhouse  width  */ 
;  /*******************/ 

vid_box (startrow+13, start, 7) ; 

get_barge_data (7, startrow+13, start, name, barge_data) 

for  (i-0;  i<7;  i++) 

write_char (startrow+13, start+i, '  ' , REV_VID) ; 
sprintf (string, "%7. If ", barge_data [5] ) ; 
write_string (startrow+13, start, string, REV_VID) ; 
cursor_on () ; 

goto_xy (startrow+13, startcol+2) ; 
i  /********************/ 

else  if  (key=»FS)      /*  deckhouse  height  */ 
/  /********************/ 

vid  box (startrow+14 , start, 7) ; 
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get_barge_data (8, startrow+14, start, name, barge_data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+14, start+i, '  ' ,REV_VID) ; 
sprintf (string, "%7 . If", barge_data [6] ) ; 
write_string( startrow+14, start, string, REV_VID) ; 
cursor_on () ; 
goto_xy (startrow+14 , startcol+2) ; 


else  if  (key==F9)      /*  end  shape  */ 
/  /a************/ 

start  =  startcol+5+strlen (label [8] ) +7; 

barge_data [7]  =  popup (menu, "",3, start row+15, start, SINGLE, REV_VID, 0) 

if  (barge_data(7]  ==  RAKE) 


write_string(startrow+16, start+1, menu (0] , REV_VID) ; 
else  if  (barge_data[7]  ==  SHIPSHAPE) 

write_string(startrow+16, start+1, menu [ 1] , REV_VID) ; 
else  if  (barge_data[7]  ==  SQUARE) 

write_string(startrow+16, start+1, menu [2] , REV_VID) ; 


cursor_on () ; 

goto_xy (startrow+16,  startcol+2)  ; 

else  if  (key==INSERT)      /*  quit  edit  */ 
/  /a************/ 

/*  erase  function  key  highlights  */ 

write_str ing ( st artrow+5 , startcol+2 , "  " , REV_VID ) ; 

write_string(startrow+7, startcol+2, "  ",REV_VID); 

write_string ( st artrow+8, startcol+2, "  ",REV_VID) ; 

write_string(startrow+9, startcol+2, "  ",REV_VID); 

write_string(startrow+10, startcol+2,  "  ", REV_VID) ; 

write_string(startrow+12, startcol+2, "  ",REV_VID) ; 

write_string(startrow+13, startcol+2, "  ",REV_VID) ; 

write_string (startrow+14, startcol+2, "  ", REV_VID) ; 

write_string (startrow+16, startcol+2, "  ",REV_VID) ; 

/*  erase  quit  message  */ 

start  =  (endcol-startcol-strlen  (footer  [4]  )) /2  +  started; 

for  (i=*0;  i<strlen  (footer  [4  ])  ;  i++) 

write_char (endrow, start+i, 205,REV_VID) ; 
break; 


/*  editing  not  required  */ 


} 
cursor_of f ( ) ; 
> 

else 
{ 

/*  erase  previous  message  */ 

start  =  started  +  4; 

for  (i-0;  i<strlen (footer [1] ) +4;  i++) 
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write_char (endrow-2, start +i, '  ' ,REV_VID) ; 

} 

if  (!flag[l)  &&  !flag[2]) 
{ 

/*      get  hull  condition  and  tow  data;     */ 
/*         estimate  displacement  */ 

/a******************************************/ 

/*  use  same  functions  as  used  for  drydocks  */ 
get  hull  cond (tow_data) ; 

get_dock_towdata (tow_data) ; 

est_disp (1, barge_data, tow_data) ; 
} 


/TIT****************************************************************/ 

/*  display  summary;  give  edit  option  */ 

/*****************************************************************/ 

barge_summary (barge_data, tow_data, name) ; 

/••a**************************************************************/ 

/*  compute  barge  resistance  */ 

/a****************************************************************/ 

vtow  =  tow_data{l]; 
vwind  =  tow_data[2]; 
hlength  =  barge_data [0]  ; 
beam  =  barge_data [1]  ; 
depth  =  barge_data [2] ; 
draft  =  barge_data [3] ; 
dlength  =  barge  data [4]; 
width  =  barge_data [5]  ; 
height  =  barge_data [6] ; 
end_shape  =  barge_data[7] ; 

/*  determine  fl,  f2,  f3  */ 

fl  =  (tow_data(4]/10.0) *(0.8  -  0.45)  +  0.45;    /*  hull  condition  */ 

barge_res [0]=f 1; 

if  (end_shape»=0  | |  end_shape==l) 

{ 

f2  =  0.2;     /*  rake  or  ship-ended  */ 
} 

else 
{ 

f2  =  0.5;     /*  square-ended  */ 

> 

barge_res [ 1 ] =f 2 ; 

f3  =  0.60;      /*  average  barge  value  per  Section  G-3.2  */ 

barge_res [2]=f3; 

/*  compute  frictional  resistance  */ 

wet_surf  =  (hlength*beam)  +  2 .0* (hlength+beam) *draft; 

barge_res [ 3 ] =wet_surf ; 
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vtow  =  square (vtow/6 . 0) ; 
friction  =  fl  *  wet_surf  *  vtow; 
resist_dat [3] =f riction; 

/*  compute  wave  resistance  */ 

uw_xsect  =  (beam*draft) ; 

barge_res [ 4 ] =uw_xsect ; 

wave_resist  =  2.85  *  uw_xsect  *  f2  *  square (vtow)  *  1.2; 

resist_dat [2] =wave_resist ; 

wave_height (vwind, &resist_dat [1] ) ; 

/*  compute  wind  resistance  */ 

abv_xsect  =  (depth-draft) *beam  +  height*width; 

barge_res [5]=abv_xsect; 

wind_resist  =  abv_xsect*0 .004*square (vtow+vwind) *f3; 

resist_dat [0] =wind_resist ; 

/*  compute  total  resistance  */ 

resistance  =  friction  +  wave  resist  +  wind  resist; 

resist_dat [4] =0;  /*  no  propeller  resistance  */ 

/*  compute  hawser  resistance  */ 

hawser_resist (tug_data, tow_data [1 ] , resistance, &haw_res) ; 

/*  compute  total  resistance  */ 
♦tension  =  resistance  +  haw_res; 

/************************************************************/ 

/*  display  results  */ 

/a***********************************************************/ 

/*  clear  portion  of  window  */ 

clear (startrow+1, startcol+1 , endrow-1, endcol-1 , REV_VID) ; 

/*  write  header  */ 

write_header  (start row,  started,  endcol,  header  [2]  ,  REV_VID)  ; 

/*  write  labels  */ 
for  (i=0;  i<15;  i++) 

write_string(startrow+4+i, startcol+3, labell [i] , REV_VID) ; 

/***********************/ 

/*     write  data        */ 
/••A********************/ 

/*  barge  name  */ 

write_string(startrow+4, start col+3+strlen (labell [0] )+l, name, REV_VID) 

sprintf (string, "%7.2f", fl) ;  /*  fl  */ 

write_string (startrow+6, start co 1+3 +strl en (labell [5] ) , string, REV_VID) 

sprintf (string, "%7.2f", f2) ;  /*  f2  */ 

write_string(startrow+7, startcol+3+strlen (labell [5] ) , string, REV_VID) 

sprintf (string, "%7.2f", f3);  /*  f3  */ 
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write_string(startrow+S, startcol+3+strlen (labell [5] ) , string, REV_VID) ; 

sprintf (string, "%7 . Of ", wet_aurf) ;      /*  wetted  surface  area  */ 
write_string(startrow+9, startcol+3+strlen (labell [5] ) , string, REV_VID) ; 

sprintf (string, "%7 . Of ", uw_xsect) ;      /*  below  waterline  cross  sect  */ 
write_string(startrow+ll, startcol+3+strlen (labell [5] ), string, REV_VID) ; 

sprintf (string, "%7 . Of ", abv_xsect) ;    /*  above  waterline  cross  sect  */ 
write_string(startrow+12, started +3 +strlen (labell [5] ) , string, REV_VID) ; 

sprintf (string, "%7 . Of ", friction) ;        /*  frictional  resistance  */ 
write_string(startrow+14, startcol+3+strlen (labell [5] ) , string, REV_VID) ; 

sprintf (string, "%7 . Of ", wave_resist) ;     /*  wave-forming  resistance  */ 
write_string(startrow+15, startcol+3+strlen (labell [5] ) , string,  REV_VID) ; 

sprintf (string, "%7 . Of ", wind_resist) ;     /*  wind  resistance  */ 
write_string(startrow+16, startcol+3+strlen (labell [5] ) , string, REV_VID) ; 

sprintf (string, "%7 . Of ", haw_res) ;        /*  hawser  resistance  */ 
write_string(startrow+17, startcol+3+strlen (labell [5] ) , string,  REV_VID)  ; 

sprintf (string, "%7 . Of ", *tension) ;       /*  total  resistance  */ 
write_string(startrow+18, startcol+3+strlen (labell [5] ) , string, REV_VID) ; 

/*  write  units  */ 

write_string(startrow+9,endcol-6, "sq  ft",REV_VID) ; 
write_string(startrow+ll, endcol-6, "sq  ft", REV_VID) ; 
write_string(startrow+12, endcol-6, "sq  ft",  REV_VID) ; 
for  (i=0;  i<5;  i++) 

write_string(startrow+14+i, endcol-6, "lbs" , REV_VID) ; 

/*  pause;  wait  for  INS  key  before  continuing  */ 

pause (startrow, startcol, endrow, endcol, footer [4] , REV_VID) ; 

return  (0) ; 

} 

/A*************************************************************************** 
This  function  gets  the  user' s  input  for  the  data  requested  in  the 
function  get_barge_resist () .  Uses  screen_getstrg ( )  for  screen  I/O.  Some 
data  checking  is  performed  for  each  data  type . 

void  get_barge_data (i, row, col, name, data) 

int  i ; 

int  row; 

int  col; 

char  *name; 

float  "data; 

{ 

int  nbr;  /*  required  arg  for  stofa        */ 

int  status;  /*  takes  return  value  for  stofa  */ 

char  string[13];  /*  input  string  */ 
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char  textl[39],  text2[39];  /*  error  message  text  */ 

int  j,  k;  /*  counters  */ 

int  length; 

cursor_on();  /*  turn  on  cursor  */ 

goto_xy (row, col) ;  /*  move  cursor  to  start  of  box   */ 

/*  get  user  input  */ 

screen_getstrg(i, row, col, string, NORM_VID, input) ; 

if  (i==0  | |  i-=l)    /*  barge  name  or  hull  number  */ 
{ 

/*  convert  input  string  to  upper  case;  output  to  name  */ 

slctouc (string, name ) ; 

/*  ensure  hull  number  is  in  proper  format  */ 
/*  --  first  copy  name  */ 
strcpy (string, name) ; 

/*  —  ensure  space  between  hull  type  and  number  */ 
length=«strlen  (name)  ; 
for  (j=0;  j<length;  j++) 
{ 

if  (name [ j] >-' 0'  &&  name  [  j]  <-' 9' ) 
{ 

if  (name[ j-1]  ==  '-' ) 
{ 

name [j-1]  =  '  '  ; 
break; 
) 

else  if  (name [j-1]  !-  '  '  ) 
{ 

string [ j]  -  '  ' ; 

for  (k=j+l;  k<»strlen (name) ;  k++) 

string[k]  =  name[k-l]; 
string (k]  -  NULL; 
slctouc (string, name) ; 
break; 

) 

else 

{ 

break; 
} 
) 
) 
) 
else  if  (i>l  &&  i<9) 

( 

/*  check  for  valid  numeric  input  */ 
for  (k-0;  k<strlen (string) ;  k++) 
{ 

if  (  string[k]~'  .'  )  ; 

else  if  (string(k]<'0'  ||  string [ k] >' 9' ) 

{ 
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sprintf (text 1, "Invalid  entry;  try  again"); 
display_error (ERROR, text 1, "  ") ; 
vid_box (row, col, 7) ; 

get_barge_data (i, row, col, name, data) ; 
return  ; 
} 
) 

/*  if  input  string  contains  only  valid  numbers,  convert  string  to  float  */ 
status  =  stof a (string, &data [i-2] , &nbr, 1) ; 
} 

else       /*  i  ==  9;  edit  response  */ 
{ 

strcpy (response, string) ; 
} 

/************************************#**********•********/ 

/*  check  data  for  consistency  */ 

/a******************************************************/ 

if  (i<2)       /*  hull  name  or  number  */ 
/  /******************•****/ 

if  (name[0]<'A'  ||  'Z'<name[0]  &&  name[0]<'a'  II  name[0]>'z') 

{ 

sprintf (text 1, "Invalid  entry;  try  again"); 

display_error (ERROR, text 1, "  ") ; 

vid_box (row, col, 14)  ; 

get_barge_data (i, row, col, name, data) ; 

return  ; 

} 

\  /a**************/ 

if  (i==2)     /*  hull  length  */ 

if  (data[0]<=*0.0) 
{ 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR, textl , "  " ) ; 

vid_box (row, col, 7) ; 

get_barge_data (i, row, col, name, data) ; 

return  ; 
} 

else  if  (  data[0]>1000.0  ) 
{ 

sprintf (textl, "Invalid  entry;  try  again"); 

display _error (ERROR, textl, "  ") ; 

vid_box (row, col, 7) ; 

get_barge_data (i, row, col, name, data) ; 

return  ; 

} 

i  /*****  ***/ 

if  (i=«3)     /*  beam  */ 

if  (data(l]<-0.0) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 
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display_error (ERROR, textl, "  ") ; 

vid_box (row, col, 7) ; 

get_barge_data (i, row, col, name, data) ; 

return  ; 
} 

else  if  (  data[l]>500.0  ) 
{ 

sprintf (text 1, "Invalid  entry;  try  again"); 

display_error (ERROR, textl ,  "  "  )  ; 

vid  box (row, col, 7) ; 

get_barge_data (i, row, col, name,  data) ; 

return  ; 

} 

\  /a*************/ 

if  (i==4)     /*  hull  depth  */ 
;  /**************/ 

if  (data[2]<=0.0) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR, textl,  "  ") ; 

vid_box (row, col, 7)  ; 

get_barge_data (i, row, col, name, data) ; 

return  ; 
> 

else  if  (  data[2]>100.0  ) 
{ 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR, textl , "  " ) ; 

vid_box (row, col, 7) ; 

get_barge_data (i, row,  col,  name,  data) ; 

return  ; 
) 

if  (i==5)     /*  draft  */ 

if  (data[3]<=*0.0) 
{ 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR, textl, "  ") ; 

vid_box (row, col, 7)  ; 

get_barge_data (i, row, col, name,  data) ; 

return  ; 
} 

else  if  (  data[3]>data[2]  ) 
{ 

sprintf (textl, "Draft  is  deeper  than  hull") 

sprintf (text2, "==>  please  try  again  <=="); 

display_error (ERROR, textl , text2 )  ; 

vid_box (row, col, 7) ; 

get_barge  data ( i, row, col, name , data) ; 

return  ; 

} 

\  /********************/ 

if  (i"»6)     /*  deckhouse  length  */ 
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if  (data[4]<0) 
( 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR, textl,  "  " )  ; 

vid_box (row, col, 7)  ; 

get_barge_data (i, row, col, name, data) ; 

return  ; 
) 
else  if  (data [4]>data[0] )    /*  is  greater  than  hull  length  */ 

{ 

sprintf (textl, "Deckhouse  is  longer  than  hull"); 

sprintf (text2, "==>  please  try  again  <=="); 

display_error (ERROR, textl, text2) ; 

vid_box (row, col, 7)  ; 

get_barge_data (i, row, col, name, data) ; 

return  ; 

} 

i  /a******************/ 

if  (i==7)     /*  deckhouse  width  */ 
/  /A******************/ 

if  (data[5]<0) 

< 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR, textl ,  "  " )  ; 

vid_box (row, col, 7) ; 

get_barge_data (i, row, col, name, data) ; 

return  ; 

} 

else  if  (data [5] >data [1] )    /*  is  greater  than  beam  */ 

{ 

sprintf (textl, "Deckhouse  is  wider  than  beam"); 

sprintf (text2, "==>  please  try  again  <=="); 

display _error (ERROR, textl, text2) ; 

vid_box (row,  col,  7) ; 

get_barge_data (i, row, col, name, data) ; 

return  ; 

> 
i  /a*******************/ 

if  (i=»8)     /*  deckhouse  height  */ 
/  /********************/ 

if  (data[6]<0) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR, textl,  "  ") ; 

vid_box (row, col, 7) ; 

get_barge_data (i, row, col, name, data) ; 

return  ; 
) 

else  if  (  data[6]>100.0  ) 
{ 

sprintf (textl, "Deckhouse  is  unusually  high"); 

sprintf (text2, "==>  please  try  again  <=="); 

display_error (ERROR, textl, text2) ; 
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vid_box (row,  col,  7)  ; 

g«t_barge_data (i, row, col, name, data) ; 

return  / 

} 
} 

cursor_of f ( ) ; 
goto_xy (0,0); 


} 


This  function  displays  a  summary  of  input  data  and  gives  the  user  the 
opportunity  to  edit . 
a****************************************************************************/ 

void  barge  summary (barge_data, tow_data,  name) 

float  *barge_data; 

float  *tow_data; 

char  *name; 

{ 

static  char  *labell[]  = 
{ 

"Name  or  hull  no:", 

"Hull  condition:", 

"Tow  speed: ", 

"Max  expected  wind  speed:", 

"Relative  wind  direction:" 

}; 

int  row,  col,  i,  key; 

int  start; 

char  string [81] , stringl (81] ; 

/*  clear  portion  of  window  */ 

clear ( start row+1, startcol+1, endrow-1, endcol-1, REV_VID) ; 

/*  write  header  */ 

write_header ( startrow, start col , endcol , header [ 1 ] , REV_VID ) ; 

/*  write  labels  */ 

write_string(startrow+5, startcol+3, labell [0] , REV_VID) ; 
write_string(startrow+7, startcol+3, labell [1] , REV_VID) ; 
write_string ( st artrow+9, startcol+3, labell [2] , REV_VID) ; 
write_string(startrow+ll, startcol+3, labell [3] ,REV_VID) ; 
write_string(startrow+13, startcol+3, labell [4] , REV_VID) ; 

/*  write  data  */ 

write_string(startrow+5, startcol+3+strlen (labell [0] ) +2, name, REV_VID) ; 

sprintf (string, "%7 . If ", tow_data [4 ] ) ; 

write_string(startrow+7, startcol+3+strlen (labell [3] ) , string, REV_VID) ; 

sprintf (string, "%7. If", tow_data [1] ) ; 

write_string(startrow+9, startcol+3+strlen (labell [3] ) , string, REV_VID) ; 

sprintf (string, "%7 . If ", tow_data [2] ) ; 

write_string(startrow+ll, startcol+3+strlen (labell [3] ) , string, REV_VID) ; 

sprintf (string, "%7 . If ", tow_data [3] ) ; 
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write_string(startrow+13, startcol+3+strlen (labell [3] ) , string, REV_VID) 

/*  write  units  */ 

wr ite_str ing ( startr ow+9 , endcol-4, "kts",REV  VID) ; 
write_3tring(startrow+ll, endcol-4, "kts" , REV  VID) ; 
write_string (startrow+13, endcol-4 , "deg" , REV_VID) ; 

/*  write  footer;  prompt  for  confirmation  of  data  */ 

/*  write  footer  */ 

write_string (endrow-2, start col+3, footer [1] , REV_VID) ; 

/*  create  normal  video  box  for  response  */ 
vid_box  (endrow-2,  started +3 +strlen  (footer  [1  ]  )  ,  4)  ; 

/*  get  response  */ 

get_barge_data (9, endrow-2, startcol+3  +  strlen (footer! 1]  )  ,  name, tow_data) 

/*  test  if  data  correct  */ 

if  (  response [0] !=' y'  &&  response [0] !=' Y'  &&  response [0 ]! =NULL  ) 

{ 

/•a**********************************************************/ 

/*  edit  data  */ 

/************************************************************/ 

/*  erase  previous  message  */ 

start  =  started  +  3; 

for  (i=0;  Kstrlen  (footer  [1]  )  +5;  i++) 

write_char (endrow-2, start+i, '  ' ,REV_VID) ; 

/*  write  quit  message  */ 

start= (endcol-startcol-strlen (footer [4] )) /2  +  started; 

write_string(endrow, start, footer [4] , REV_VID) ; 

/*  write  edit  "menu"  */ 

start=  (endcol-startcol-strlen  (footer  [2]  )) /2  +  started; 
write_string(startrow+15, start, footer (2] ,REV_VID) ; 
start=  (endcol-startcol-strlen  (footer  [3]  )) /2  +  started; 
write_string(startrow+16, start, footer [3] , REV_VID) ; 

/*  write  function  key  indicators  in  N0RM_VID  */ 

for(i=0;  i<2;  i++) 

{ 

start- (endcol-startcol-strlen  (footer  [2]  )) /2  +  started; 

write_char (startrow+15, start+i, footer [2] [i] ,N0RM_VID) ; 

write_char(startrow+15, start+8+i, footer [2] [i+8] , N0RM_VID) ; 

write_char (startrow+15, start+16+i, footer [2] [i+16] , N0RM_VID) ; 

start- (endcol-startcol-strlen  (footer  [3]  )) /2  +  started; 

write_char (startrow+16, start+i, footer [3] [i] ,N0RM_VID) ; 

write_char (startrow+16, start+8+i, footer [3] [i+8] ,NORM_VID) ; 
) 

/*  move  cursor  to  Fl  highlight  */ 

cursor_on ( ) ; 

start=  (endcol-startcol-strlen  (footer  [2]  )) /2  +  started; 

goto_xy (startrow+15, start) ; 
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/*  get  user's  choice  */ 

while  (1) 

{ 

key=get_special () ; 

/a*************/ 

if  (key==Fl)         /*  barge  name  */ 

vid_box(startrow+5, startcol+3+strlen (labell [0] ) +2,  14)  ; 

get_barge_data(l, startrow+5, start col+3+strlen (labell [0] ) +2, name, barge_data) 

for  (i=0;  i<=15;  i++) 

write_char (startrow+5, startcol+3  +  strlen (labell [0] ) +l  +  i,  '  ' , REV_VID)  ; 
write_string (startrow+5, startcol+3+strlen (labell [0] ) +2, name, REV_VID) ; 
cursor_on () ; 

start=  (endcol-startcol-strlen  (footer  [2]  )) /2  +  startcol; 
goto_xy (startrow+15, start ) ; 
\  /*************•****/ 

else  if  (key==F2)    /*  hull  condition  */ 
;  /******************/ 

vid_box(startrow+7, startcol+3+strlen (labell [3] ) +2,  6)  ; 

get_dock_data (4 , startrow+7, startcol+3+strlen (labell (3] ) +2, tow_data) ; 

for  (i=0;  i<7;  i++) 

write_char (startrow+7, startcol+3+strlen (labell [3] ) +l+i, '  ' , REV_VID) ; 
sprintf (string, "%7. If", tow_data [4] ) ; 

write_string( startrow+7, startcol+3+strlen (labell [3] ) , string, REV_VID) ; 
cursor_on ( ) ; 

start=  (endcol-startcol-strlen  (footer  [2]  )) /2  +  startcol; 
goto_xy (startrow+15,  start+8)  ; 

else  if  (key==F3)    /*  tow  speed  */ 

vid_box( start row+9, startcol+3+strlen (labell [3] )+2, 6) ; 

get_dock_data (1, start row+9, startcol+3+strlen (labell [3] ) +2,  tow_data) ; 

for  (i=0;  i<7;  i++) 

write_char (startrow+9, startcol+3+strlen (labell [3] ) +l+i, '  ' , REV_VID) ; 
sprintf (string, "%7.1f ", tow_data[l] ) ; 

write_string (startrow+9, startcol+3+strlen (labell [3] ) , string, REV_VID) ; 
cursor_on () ; 

start- (endcol-startcol-strlen (footer [2] )) /2  +  startcol; 
goto_xy (startrow+15, start+16) ; 

else  if  (key«»F4)    /*  wind  speed  */ 

vid_box(startrow+ll, startcol+3+strlen (labell [3] ) +2, 6) ; 

get_dock_data (2 , startrow+11 , startcol+3+strlen (labell [ 3 ] ) +2 , tow_data ) ; 

for  (i=0;  i<7;  i++) 

write_char( startrow+11, startcol+3+strlen (labell [3] ) +l+i, '  ' ,REV_VID) ; 
sprintf (string, "%7.1f ", tow_data(2] ) ; 

write_string( startrow+11, startcol+3+strlen (labell (3] ) , string, REV_VID) ; 
cursor_on () ; 
start= (endcol-startcol-strlen (footer [3] )) /2  +  startcol; 

goto_xy (startrow+16, start) ; 
i  /A*********************/ 

else  if  (key™=F5)    /*  rel  wind  direction  */ 
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I  /a*********************/ 

vid_box(startrow+13, startcol+3+strlen (labell (3]  )  +  2,  6)  ; 

get_dock_data (3, startrow+13, start col+3+strl en (labell (3] )  +2, tow_data) ; 

for  (i-0;  i<7;  i++) 

write_char (startrow+13, startcol+3+strlen (labell [3] ) +  l  +  i, '  ' , REV_VID) 
sprint f (string, "%7 . If " , tow_data [3] ) ; 

write_string (startrow+13, startcol+3+strlen ( labell [3 ] ) , string,  REV_VID) ; 
cursor_on () ; 

start- (endcol-startcol-strlen  (footer  [3]  )) /2  +  startcol; 
goto_xy (startrow+16, start+8 ) ; 
> 

else  if  (key— INSERT) 
{ 

/*  erase  menu  */ 

for    (i=0;    Kstrlen  (footer  [2]  )  ;    i++) 

{ 

start=  (endcol-startcol-strlen  (footer  [2]  )) /2  +  started; 
write_char (startrow+15, start  +  i,  '  ' , REV_VID) ; 
write_char (startrow+16, start+i, '  ' , REV_VID) ; 
} 

/*  erase  message  */ 

start  —  (endcol-startcol-strlen (footer [ 4 ])) /2  +  startcol; 
for  (i=0;  i<strlen (footer [4 ]) ;  i++) 

write_char (endrow, start+i, 205, REV_VTD) ; 
cursor_of f ( ) ; 
goto_xy (0,0); 
break; 
) 
} 
} 

/*  prompt  to  save  data  to  file  */ 
/*  —  erase  message  */ 

start  =  (endcol-startcol-strlen (footer [1] )) /2  +  startcol; 
for  (i-0;  i<37;  i++) 

write_char (startrow+15, startcol+3+i, '  ' ,REV_VID) ; 

start  =  startcol  +  3; 

write_string(endrow-2, start, footer [5] ,REV_VID) ; 

vid_box (endrow-2, start+strlen (footer [5]  )  ,  4)  ; 

get_barge_data (9, endrow-2, start+strlen (footer [5] ) , name, tow_data) ; 

if  (  response [0] !-' n'  &&  response [0] !=' N'  )     /*  save  data  */ 

{ 

/*  erase  previous  message  */ 

start  ■  startcol  +  3; 

for  (i-0;  Kstrlen  (footer  [5]  ) +4  ;  i++) 

write  char (endrow-2, start+i, '  ' , REV  VID) ; 


save_barge_f ile (name, barge_data, tow_data) ; 


I 


} 


/•a************************************************************** 
This  function  computes  the  mean  tension  of  a  barge  and  its 
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towing  hawser.  It  duplicates  the  computations  in  the  function 
get_barge_resist ( ) ,  but  is  intended  as  a  stand  alone  function 
for  use  by  other  program  modules. 

void  barge_resist (tug_data, barge_data, tow_data, tension) 

float  *tug_data; 

float  *barge_data; 

float  *tow_data; 

float  *tension; 

{ 

float  vtow  =  tow_data[l]; 

float  vwind  =  tow_data[2]; 

float  hlength  =  barge_data [0]  ; 

float  beam  =  barge_data [1] ; 

float  depth  =  barge_data [2]  ; 

float  draft  =  barge_data [3] ; 

float  dlength  =  barge_data [4] ; 

float  width  =  barge_data [5] ; 

float  height  =  barge_data [6] ; 

float  end_shape  =  barge_data [7] ; 

float  fl, f2,f3; 

float  wet_surf , friction, uw_xsect, abv_xsect; 

float  wave_resist , wind  resist , resistance, haw_res; 

/*  determine  fl,  f2,  f3  */ 

fl  =  (tow_data[4]/10.0) *(0.8  -  0.45)  +  0.45;    /*  hull  condition  */ 

if  (end_shape==0  | |  end_shape==l) 

£2  -  0.2;     /*  rake  or  ship-ended  */ 
else 

f2  =  0.5;     /*  square-ended  */ 

f3  =  0.60;      /*  average  barge  value  per  Section  G-3.2  */ 

/*  compute  frictional  resistance  */ 

wet_surf  =  (hlength*beam)  +  2 .0* (hlength+beam) *draft; 

vtow  =  square (vtow/ 6. 0) ; 

friction  =  fl  *  wet_surf  *  vtow; 

/*  compute  wave  resistance  */ 

uw_xsect  ■  (beam* draft) ; 

wave_resist  ■  2.85  *  uw_xsect  *  f2  *  square (vtow)  *  1.2; 

/*  compute  wind  resistance  */ 

abv_xsect  -  (depth-draft) *beam  +  height *width; 

wind_resist  =  abv_xsect*0 . 004 *square (vtow+vwind) *f 3 ; 

/*  compute  total  resistance  */ 

resistance  ■  friction  +  wave_resist  +  wind_resist; 

/*  compute  hawser  resistance  */ 

hawser_resist (tug_data, tow_data [1] , resistance, &haw_res) ; 

/*  compute  total  resistance  */ 
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♦tension  ■  resistance  +  haw_res; 

> 

/••a************************************************************* 

This  function  retrieves  tow  data  from  a  user  specified  file . 
a****************************************************************/ 

get_barge_f ile (hull_no, barge_data, tow_data) 

char  *hull_no; 

float  *barge_data; 

float  *tow_data; 

{ 

FILE  *in; 

char  fname [13]; 

char  inline [81]; 

char  textl [39] , text2 [39] ; 

int  i, j, status, nbr; 

float  array [2] ; 

int  start; 

/*  write  header  */ 

start  =  (endcol-startcol-strlen  (label2  [  1]  )  )  /2  +  started; 

write_string(startrow+8, start, label2 [1] , REV_VID) ; 

/*  write  prompt  */ 
for  (i-0;  i<2;  i++) 
{ 

start  =  startcol+3; 

write_string(startrow+10+i, start, label2 [i+2] , REV_VID) ; 

> 

vid_box (startrow+11, start +strlen (label2 [3] ) , 9)  ; 

sprintf (textl, "Type  ' Q'  to  quit"); 

start  -  (endcol-startcol-strlen  (textl)  ) /2  +  started; 

write_string (endrow-3, start, textl, REV_VID) ; 

get_f name (6,1, startrow+11, startcol+3+strlen (label 2 [3] ) , fname) ; 

/*  check  for  quit  option  */ 

if  (fname [0 ]==' Q' ) 

I 

cursor_of f () ; 

goto_xy (0,0) ; 

return  (-1) ; 
} 

in* f open (fname, "r") ; 

if  (in-- NULL) 

{ 

sprintf (textl, "Can' t  open  file  %s", fname); 

display_error (ERROR, textl, "  ") ; 

clear ( start row+8, startcol+1, endrow-3, endcol-1, REV_VID) ; 

status=get_barge_f ile (hull_no, barge_data,  tow_data) ; 

if  (status<0) 

{ 

cursor_of f () ; 
goto  xy (0, 0) ; 
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return  (-1) ; 

} 

else 

return  (0)  ; 
} 

else 
{ 

/*  read  data  from  file  */ 

fgets (inline, 81, in) ; 

strst rip (inline) ; 

/*  test  for  valid  tow  file  */ 

if  (!  (strncntp( inline,  "  !  Tow  data  file",  15))) 

{ 

fgets (inline, 81, in) ; 

fgets (inline, 81, in) ; 

strstrip (inline) ; 

/*  test  if  barge  file  */ 

if  (strncmp (inline, "BARGE", 5) ) 

{ 

sprintf (textl, "%s  is  not  a", f name); 

sprintf (text2, "barge  data  file!"); 

display_error (ERROR, textl, text2) ; 

clear ( start row+8, startcol+1, endrow-3, endcol-1, REV_VID) 

status=get_barge_f ile (hull_no, barge_data, tow_data) ; 

if  (status<0) 

( 

cursor_of f ( ) ; 
goto_xy (0, 0) ; 
return  (-1)  ; 
> 
else 

return  (0) ; 
} 

/*  get  hull  number  */ 
fgets (inline, 81, in) ; 
fgets (inline, 81, in) ; 
strstrip (inline) ; 
strncpy (hull_no, inline, 24) ; 
strstrip (hull_no) ; 

/*  read  remaining  tow  data  */ 

for  (i-0;  i<5;  i++) 

{ 

fgets (inline, 81, in) ; 

fgets (inline, 81, in) ; 

status=stofa (inline, array, &nbr, 1) ; 

tow_dat a ( i ] "array [ 0 ] ; 
} 

/*  read  barge  data  */ 
for  (i=0;  i<8;  i++) 
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{ 

f gets (inline, 81, in) / 
fgets (inline, 81, in) ; 
statua-stofa (inline, array, &nbr, 1) ; 
barge_dat a [ i ] =array [ 0 ] ; 
} 

f close (in) ; 
) 
else 

{ 

sprintf (textl, "%s  is  not  a  tow  data  file! ", fname) / 

display_error (ERROR, textl, "  ")  ; 

clear (startrow+8, startcol+1 , endrow-3, endcol-1, REV_VID) ; 

status=get_barge_f ile (hull_no, barge_data, tow_data) ; 

if  (status<0) 

{ 

cursor_of f ( ) ; 
goto_xy (0,0) ; 
return  (-1) ; 
) 
else 

return  (0) ; 
) 
} 
) 

This  function  writes  the  tow  data  for  barges  to  a  user 
specified  file, 
a****************************************************************/ 

void  save_barge_f ile (hull_no, barge_data, tow_data) 

char  *hull_no; 

float  *barge_data; 

float  *tow_data; 

{ 

FILE  *out; 

char  fname [13]/ 

char  string [25]/ 

char  textl [39] , text2[39] / 

int  start; 

/*  prompt  for  file  name  */ 

start  ■  started  +  3/ 

write_string(endrow-2, start, footer [ 6] , REV_VID) ; 

vid_box (endrow-2, start+strlen (footer [6] ) +4, 9) ; 

get_fname (6,1, endrow-2, start+strlen (footer [6] ) +4, fname) ; 
out=f open (fname, "w") / 

if  (out==NULL) 
{ 

sprintf (textl, "Can' t  open  file  %s", fname)/ 

display_error (ERROR, textl, "  ") / 

save_barge_f ile (hull_no, barge_data,  tow_data) / 
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return; 

} 

else 

{ 

/*  write  tow  data  to  file  */ 

fprintf (out, " !  Tow  data  file\n"); 

fprintf (out, " !  Tow  type:\n"); 

fprintf (out, "BARGE\n") ; 

fprintf (out, " !  Hull  number : \n") ; 
fprintf (out, "%s\n", hull_no) ; 

fprintf (out, " !  Estimated  displacement :\n") ; 
sprintf (string, "%-. If \n", tow_data [0] ) ; 
fprintf (out, "%s", string)  ; 

fprintf (out, " !  Tow  speed  <kts):\n"); 
sprintf (string, "%-. If \n", tow_data (1] ) ; 
fprintf (out, "%s", string) ; 

fprintf (out, " !  Wind  speed  (kts):\n"); 
sprintf (string, "%-. 2f \n", tow_data [2] ) ; 
fprintf (out, "%s",  string)  ; 

fprintf (out, " !  Relative  wind  dir:\n"); 
sprintf (string, "%- . 2f \n", tow_data [3 ] ) ; 
fprintf (out, "%s", string) ; 

fprintf  (out, " !  Hull  condition : \n" ) ; 
sprintf (string, "%-. 2f \n", tow_data [4 ] ) ; 
fprintf (out, "%s", string) ; 

/*  write  barge  data  to  file  */ 
fprintf (out, " !  Hull  length: \n" ) ; 
sprintf (string, "%-. If \n", barge_data [0] ) ; 
fprintf (out , " %s " , string) ; 

fprintf (out, "!  Beam:\n"); 

sprintf (string, "%-. If \n", barge_data [1] ) ; 

fprintf (out, "%s", string) ; 

fprintf (out, "!  Hull  depth : \n" ); 

sprintf (string, "%-. If \n", barge_data [2] ) ; 

fprintf (out, "%s", string) ; 

fprintf (out, " !  Draft :\n"); 

sprintf (string, "%-. If \n", barge_data [3] ) ; 

fprintf (out, "%s", string) ; 

fprintf (out, " !  Deckhouse  length : \n" ) ; 
sprintf (string, "%-. If \n", barge_data [4  ]  )  ; 
fprintf (out, "%s", string) ; 

fprintf (out, " !  Deckhouse  width:\n"); 
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sprint f (string, "%-. If \n", barge_data [5] ) ; 
f pr intf (out , " %s " , string) ; 

fprintf (out, " !  Deckhouse  height :\n") ; 
sprintf (string, "%-. If \n", barge_data [6] ) ; 
fprintf (out, "%s", string) ; 

fprintf (out ," !  End  shape :\n"); 

sprintf (string, "%- . Of \n", barge_data [7] ) ; 

fprintf (out, "%s", string) ; 
} 

f close (out) ; 
} 
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File:  drg.c 

Author:  Todd  J.  Peltzer 

Last  update:  30  April  198  9 

This  file  contains  the  functions  which  compute  the  tow  resistance 
of  self-propelled  ships,  as  well  as  the  resistance  of  the  tow 
hawser. 

Functions : 

mean_t ens  ion ( ) 
ship_resist () 
added_res ( ) 
hull_resist () 
wave_height () 
hawser_resist () 

♦include  "stdio.h" 
♦include  "math.h" 
♦include  "keydef.h" 
♦include  "video. h" 

♦define  PI  3.141592654 

static  char  *label[]  = 

{ 

"Wind  resistance:", 

"Wave  height:", 

"Wave  resistance:", 

"Hull  resistance:", 

"Propeller  resistance:", 

"Total  tow  resistance:", 

"Hawser  resistance:", 

"Mean  tension:" 
}; 

static  char  f ooter [ ]  = 
{ 

"  Press  INS  to  continue  " 

>; 

static  char  *header[]  = 
{ 

"RESISTANCE", 

"DATA  SUMMARY" 

}; 

static  char  *labell[]  = 
{ 

"Hull  no:", 

"Class:", 

"Disp:", 

"Tab  disp:", 

"Front  area:", 
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Wind  coef : ", 
'Prop  area:", 
•Hull  curve:", 
'Wave  curve:", 
'Tug  class:", 
'Hawser", 

diameter: " , 

scope : " 


>; 


static  char  *label2[] 

{ 

"Tow  spd:", 
"Max  wind:", 
"Rel  wind  dir:", 
"Wave  height:", 
"Prop  status:", 
"Chain  pendant", 


scope: 


}; 


static  char  *label3[]  = 
{ 

"Resistance  (lbs) ", 

Wind : " , 

Wave : " , 

Hull:", 

Prop : " , 
"Total:", 
"Hawser: ", 
'Tension: " 

}; 

extern  float  resist_dat [5] ; 

void  mean_tension () , ship_resist () , hawser_resist () ; 
float  square (); 

/•a********************************************************************* 
This  function  computes  the  mean  towing  tension  of  a  ship,  displays 
the  results,  and  then  displays  a  summary. 
***********••**********************************************************/ 

void  mean_tension (tug_data, tow_data, ship_data,  hull_no,  class ,  tension) 

float  *tug_data;         /*  tug  data     */ 

float  *tow_data;         /*  tow  data     */ 

float  *ship_data;        /*  ship  data    */ 

char  *hull_no;  /*  hull  number  */ 

char  *class;  /*  ship  class   */ 

float  *tension;  /*  mean  hawser  tension  */ 

{ 

int  row, col, i, start, key; 

int  status; 

float  tow  res;         /*  total  tow  resistance  */ 
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float  haw_res;         /*  hawser  resistance  */ 

float  res_dat[5];      /*  array  of  resistances  */ 

int  start row»2; 

int  startcol=20; 

int  endrow=22; 

int  endcol=60; 

int  left, center, right; 

char  string (15]; 

/*  start  of  computations  */ 

ship_resist (tow_data, ship_data, res_dat,  &tow_res)  ; 

for  (i=0;  i<5;  i++) 

resist_dat [i]=res_dat [i] ;    /*  save  data  for  report  */ 

/♦••a****************************/ 

/*  compute  total  tow  resistance  */ 
/A*******************************/ 

/*  compute  hawser  resistance  */ 

hawser_resist  (tug_data,  tow_data  [1]  ,  tow_res,  &haw_res)  .; 

/*  compute  mean  tension  */ 
♦tension  =  tow_res+haw_res; 

/••a**********************************************/ 

/*  display  results  */ 

/•••••a*******************************************/ 

/*  draw  background  and  border  */ 

draw_window  (startrow,  started,  endrow,  endcol,  DOUBLE,  REV_VID)  ; 

/*  write  header  */ 

write_header (startrow, startcol, endcol, header [0] , REV_VID) ; 

/*  write  data  labels  */ 

f or (row=startrow+5, i=0;  i<8;  i++, row++) 

write_string (row, startcol+3, label [i]  , REV_VID) ; 

/*  write  data  */ 

/*  write  wind  resistance  */ 

sprintf (string, "%8.0f ", res_dat [0] ) ; 

write_string(startrow+5, start col+2+strlen (label [4] )+2, string, REV_VID) 

/*  write  wave  height  */ 

sprintf (string, "%8 . If", res_dat ( 1] ) ; 

write_string(startrow+6, startcol+2+strlen (label [4] ) 42, string, REV_VID) 

/*  write  added  resistance  */ 

sprintf (string, "%8 . Of ", res_dat [2] ) ; 

write_string(startrow+7, startcol+2+strlen (label [4] ) +2, string, REV_VID) 

/*  write  hull  resistance  */ 

sprintf (string, "%8.0f ", res_dat (3] ) ; 

write_string(startrow+8, start col+2+strlen (label [4] ) +2, string, REV_VID) 
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/*  write  prop  resistance  */ 

sprintf (string, "%8 .Of", res_dat [4]  )  ; 

write_string(startrow+9, startcol+2+strlen (label [4 ] ) +2, string, REV_VID) ; 

/*  write  total  tow  resistance  */ 
sprintf (string, "%8 . Of", tow_res) ; 
write_string(startrow+10, startcol+2+strlen (label [4] )+2, string, REV_VID) 

/*  write  hawser  resistance  */ 

sprintf (string, "%8 . Of", haw_res) ; 

write_string(startrow+ll, st art col+2+strlen (label [4] ) +2, string, REV_VID) 

/*  write  mean  tension  */ 

sprintf (string, "%8 . Of", "tension) ; 

write_string(startrow+12, startcol+2+strlen (label [4] ) +2, string, REV_VID) 

/*  write  units  */ 

f or (row=startrow+5, i=0;  i<8;  i++, row++) 

write_string(row,endcol-5, "lbs" , REV_VID) ; 
write_string(startrow+6, endcol-5, "ft  ",REV_VID) ; 

/*  write  footer  */ 

start  =  (endcol-startcol-strlen  (footer)  ) /2  +  started; 

write_string(endrow, start, footer, REV_VID) ; 

pause  (startrow,  startcol,  endrow,  endcol,  footer,  REV__VID)  ; 
return  ; 


} 


/*************************************************************************** 
This  function  computes  the  added  resistance  due  to  waves.  Data  from 
Figure  G-2  of  the  USN  Towing  Manual  are  read  in  from  the  file  "RS_WVHT.DAT" 
and  are  linearly  interpolated  for  the  specified  wave  height.  The  first 
argument  is  the  desired  wave  height,  the  second  is  the  curve  number  as 
determined  from  Table  G-2;  the  third  argument  is  the  result,  the  added 
resistance . 

*********************************** 

added_res (wave_ht, curve, resistance) 

float  wave_ht; 

float  "resistance; 

int  curve ; 

{ 


*****************************************/ 

/*  Wave  height,  feet  */ 

/*  Added  resistance,  lbs  */ 

/*  Curve  no.  for  added  resistance   */ 


FILE  *in; 

char  string[81] , dummy [81] , textl [36] ,  text2 [36]  ; 

char  ch; 

int  i  ; 

int  status; 

int  n ; 

int  index; 

float  test; 

float  lower_dat [4] ,  upper_dat(4] 

float  curve  dat[4]; 


/* 
/* 
/* 
/* 
/* 
/* 
/* 


Dummy  counter 
Return  value  for  "stofa" 
Required  arg  for  "stofa" 
Index  for  table  lookup 
Test  value  for  if  statement 
Bracketing  data  points 
Exact  or  interpolated  data 


*/ 

V 

*/ 

V 

*/ 

V 
V 


in  -  fopen ("rs_wvht.dat", "r") 


/*  Open  file  */ 
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index  =  wave_ht/l;  /*  Compute  test  value  for  if  statement  */ 

test  =  wave_ht  -  (float) index;  /*  "  */ 

/*  Read  and  discard  text  lines  of  file   */ 
fgets (dummy, 81, in) ; 
fgets (dummy, 81, in)  ; 
fgets (dummy, 81, in) ; 
fgets (dummy, 81, in) ; 

if  (wave_ht  ==0.0)  { 
fgets (string,  81,  in)  ; 
status  =  stof a (string, curve_dat,  &n,  4)  ; 

} 

else  if  (test  >  0.0)  {   /*  Need  interpolation  */ 
for  (i=0;  Kindex;  i++) 

fgets (dummy, 81, in) ;   /*  Read  &  discard  data  up  to  the  desired  line  */ 
fgets (string, 81, in) ;     /*  Read  line  of  file  */ 
status  =  stof a (string, lower_dat, &n,  4) ; 
fgets (string,  81, in) ;     /*  Read  next  line  of  file  */ 
status  =  stof a (string, upper_dat,  &n,  4) ; 
for(i=0;  i<4;  i++)  { 

curve_dat[i]  =lower  dat[i]  +  (wave  ht-index)  *  (upper_dat [ i] 
-  lower_dat [i] ) ; 
} 
} 

else  if  (test  ==  0.0)  {    /*  No  interpolation  needed  */ 
for  (i=0;  Kindex;  i++) 

fgets (dummy, 81, in) ;   /*  Read  &  discard  data  up  to  the  desired  line  */ 
fgets (string, 81, in) ;     /*  Read  line  of  file  */ 
status  =  stof a (string, curve_dat,  &n,  4) ; 
} 


/*  Check  consistency  of  data:  */ 
if  (  curve_dat [curve]  >  1.0e30) 
{ 

sprintf (text 1, "Wave  height  outside  data  range"); 

sprintf (text2, "f or  this  curve."); 

display_error (ERROR, textl,  text2) ; 

while (  ! (ch-getchar () )  )  ; 

f close (in) ; 

return  -1; 
> 

♦resistance  =  curve  dat [curve];      /*  Passes  the  appropriate  value   */ 

/*  back  to  the  calling  function.  */ 
f close (in) ; 
return  0; 


} 


This  function  finds  the  hull  resistance  of  the  ship  (RH) .  Data 
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from  Figure  G-l  of  the  USN  Towing  Manual  are  read  in  from  the  file 
"RH_DISP.DAT"  and  are  linearly  interpolated  for  the  specified  towing  speed. 
The  first  argument  is  the  desired  towing  speed,  the  second  is  the  curve 
number  as  determined  from  Table  G-2,  the  third  argument  is  the  displacement; 
the  fourth  argument  is  the  result,  the  hull  resistance. 
a****************************************************************************/ 

hull_resist (speed, curve, disp, resistance) 

float  speed;  /*  Towing  speed,  kts  */ 

int  curve;  /*  Curve  no.  for  added  resistance   */ 

float  disp;  /*  Displacement,  tons  */ 

float  *resistance;  /*  Hull  resistance,  lbs  */ 

{ 

FILE  *in; 

char  string[81] , dummy [81] , textl [36] , text2 [36]  ; 

char  ch; 

int  i;  /*  Dummy  counter  */ 

int  status;  /*  Return  value  for  "stofa"  */ 

int  n;  /*  Required  arg  for  "stofa"  */ 

int  index;  /*  Index  for  table  lookup  */ 

float  test;  /*  Test  value  for  if  statement  */ 

float  lower_dat [6] ,  upper_dat [6] ;   /*  Bracketing  data  points  */ 

float  curve  dat[6];  /*  Exact  or  interpolated  data  */ 

in  -  fopenCrh_disp.dat",  "r")  ;      /*  Open  file  */ 

index  =  speed/ 1;  /*  Compute  test  value  for  if  statement  */ 

test  -  speed  -  (float) index;    /*  "  */ 

/*  Read  and  discard  text  lines  of  file   */ 
fgets (dummy, 81, in) ; 
fgets (dummy, 81, in) ; 
fgets (dummy, 81, in) ; 

if  (speed  ==0.0)  { 

fgets (string, 81, in) ; 

status  =  stofa (string, curve_dat, &n,  6) ; 

} 

else  if  (test  >  0.0)  {   /*  Need  interpolation  */ 
for  (i=0;  Kindex;  i++) 

fgets (dummy, 81, in) ;   /*  Read  &  discard  data  up  to  the  desired  line  */ 
fgets (string,  81,  in) ;     /*  Read  line  of  file  */ 
status  ■  stofa (string, lower_dat,  &n,  6)  ; 
fgets (string, 81, in) ;     /*  Read  next  line  of  file  */ 
status  ■  stofa (string, upper_dat, &n,  6) ; 
for(i=0;  i<6;  i++)  { 

curve_dat[i]  =lower_dat [i]  +  (speed-index)  *  (upper_dat ( i] 
-  lower_dat [i] ) ; 
} 
) 

else  if  (test  ==  0.0)  {    /*  No  interpolation  needed  */ 
for  (i=0;  Kindex;  i++) 

fgets (dummy, 81, in) ;   /*  Read  &  discard  data  up  to  the  desired  line  */ 
fgets (string, 81, in) ;     /*  Read  line  of  file  */ 
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status  -  stofa (string, curve_dat,  &n,  6)  ; 


♦resistance  =  1 . 25 *curve_dat [curve ] *disp;    /*  incl  25%  for  hull  fouling  */ 

fclose (in) ; 
return  0; 


} 


/**************************************************************************** 

This  function  computes  the  significant  wave  height  as  a  function  of  the 
maximum  expected  wind  speed,  using  the  Pierson-Moskowitz  sea  spectrum. 
*****************************************************************************/ 

wave_height (wind_spd,  height) 


float  wind_spd; 
float  *height; 
( 

float  alpha"8 . le-3; 

float  beta=0.74; 

float  g=32.17; 

float  coef; 


/*  wind  speed,  kts  */ 
/*  wave  height,  ft  */ 

/*  P-M  nondimensional  parameter 
/*  P-M  nondimensional  parameter 
/*  gravitational  constant  */ 


*/ 

V 


} 


coef  =  2 . 0/g*sqrt (alpha/beta) ; 

♦height  =  coef * (wind_spd*wind_spd) * (1 . 689*1 . 689)  ; 


/*  wave  height  in  ft  */ 


/**************************************************************************** 

This  function  finds  the  hawser  resistance. 
************************************************************ 

void  hawser_resist (tug_data, speed, tow_res, wire_resist) 


float  *tug_data; 

float  speed; 

float  tow_res; 

float  *wire_resist; 
{ 


/*  tug  data  array 

/*  tow  speed,  kts 

/*  tow  resistance,  lbs 

/*  hawser  resistance,  lbs 


V 

V 

*/ 

V 


int  i; 

static  float  rho=1.9905; 

static  float  coef  n— 1.4; 

static  float  coef_t-0 .015; 

float  T; 

float  p; 

float  d; 

float  phi; 

float  vtow; 

float  sinphi; 

float  cosphi; 

float  kl, drag, olddrag; 


V 
*/ 
V 
V 
*/ 


/*  dummy  counter 

/*  density  of  sea  water,  slugs/ft^3 

/*  normal  drag  coefficient 

/*  tangential  drag  coefficient 

/*  static  hawser  tension 

/*  weight  of  hawser  in  water,  lbs/ft  */ 

/*  hawser  diameter,  ft  */ 

/*  cable  inclination  angle  */ 

/*  tow  speed,  ft/sec  */ 

/*  sin(phi)  */ 

/*  cos (phi)  */ 

/*  intermediate  results  */ 


if  (tug_data(l]~2.0) 

p-6.4293; 
else  if  (tug_data[l]«2.25) 

p=8.1432; 
d=»t  ug_dat  a  [  1  ]  / 1 2  .  0  ; 


252 


vtow-speed*l . 689; 

T»tow_res; 

/*  compute  hawser  resistance  iteratively  until 

equilibrium  is  reached   */ 
for  (i-0;  i<20;  i++) 
( 

kl  ™  rho*d*vtow*vtow*T/p; 

phi=atan(p*tug_data(2]/2.0/T)  ; 

sinphi-sin (phi) ; 

cosphi«cos (phi) ; 

drag=kl* (coef_n* (pow(sinphi, 4) /cosphi+cosphi* (sinphi*sinphi+2 .0) 

-2.0) +PI*coef_t*sinphi) ; 
T  =  tow_res  +  drag; 
if  (i=-0) 
{ 

olddrag=drag; 

continue; 
) 

if  (  fabs (drag-olddrag)  <  0.1)  break; 
else  olddrag— drag; 


* 


wire_resist=drag; 


> 


This  function  finds  the  ship  resistance. 

void  ship_resist (tow_data, ship_data, rea_dat , tow_res ) 

float  *tow_data; 

float  *ship_data; 

float  *res_dat; 

float  *tow_res; 

( 

float  k;  /*  heading  coefficient  */ 

float  rel_wind  spd2 ;   /*  relative  wind  speed  squared    */ 

float  wind  res;  /*  wind  resistance,  lbs  */ 

float  vtow2;  /*  tow  speed  squared  */ 

float  vwind2;  /*  wind  speed  squared  */ 

float  alpha;  /*  supp .  angle  of  rel  wind  direction  */ 

float  wave_ht;  /*  wave  height,  ft  V 

float  add  res;  /*  added  resistance  due  to  waves  */ 

float  hull_res;  /*  calm  water  hull  resistance     */ 

float  prop  res;  /*  propeller  resistance  */ 

float  prop_area;  /*  propeller  area  */ 

int  curve, status; 

/*  determine  heading  coefficient  */ 
if  (tow_data[3]<20.0) 

k  -  1.0; 
else  if  (tow_data[3]>-20.0  &&  tow_data ( 3] <40 . 0) 

k  -  1.2; 
else  if  (tow  data (3 ] >-40 . 0  &&  tow  data [ 3] <-90 . 0) 
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k  =  0.4; 
else 

k  =  0.0; 

vtow2  =  square (tow_data [ 1 ] ) ; 

/•a*************************/ 

/*  compute  wind  resistance  */ 
/ft**************************/ 

if  (tow_data[3]==0.0) 

rel_wind_spd2  =  square (tow_data [1] +tow_data [2] ) ; 
else 
{ 

vwind2  ■  square (tow_data [2] ) ; 

alpha  =  (180.0  -  tow_data [3] ) *PI/180 . 0; 

rel_wind_spd2  =  vwind2+vtow2-2 . 0*tow_data [ 1 ] *tow_data [2 ] *cos (alpha) 
} 

wind_res=0. 00506*ship_data [2] *ship_data [1] *k*rel_wind_spd2; 
res_dat [0] =wind_res; 

/♦a***************************************/ 

/*  compute  added  resistance  due  to  waves  */ 
/••••a************************************/ 

wave_height (tow_data [2] , &wave_ht) ; 
res_dat [ 1 ] =wave_ht; 

curve  =  (int)  ship_data [5] ; 

status  =  added  res (wave  ht, curve, &add_res) ; 

if  (status<0) 

add  res=0.0; 
res_dat [2] =add_res; 

/a*************************************/ 

/*  compute  calm  water  hull  resistance  */ 
/**************************************/ 

curve  =  (int)  ship_data [4] ; 

status  =  hull_resist (tow_data [1] , curve, tow_data [0]  ,  &hull_res) ; 

res_dat [3]~hull_res; 

/********************************/ 

/*  compute  propeller  resistance  */ 
/a*******************************/ 

prop_area=ship_data [3] ; 
if  (tow_data [4]== LOCKED)  ; 
else  if  (tow_data [4] -^TRAILING) 

prop  area  *=  0.5; 
else  if  (tow_data  [4]  "REMOVED) 

prop_area  =  0.0; 
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prop_res  ■  3 . 737*prop_area*vtow2; 
res_dat [ 4 ] =prop_res ; 

/A*******************************/ 

/*  compute  total  tow  resistance  */ 
/A*******************************/ 

*tow_res  =  wind_res  +  add_res  +  hull_res  +  prop_res; 
} 
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/a************************************************************************* 
File:  ext.c 

Author:  Todd  J.  Peltzer 
Last  update:  3  May  1989 

This  file  contains  the  functions  which  compute  the  extreme  tension 
for  a  given  combination  of  tug,  tow,  wind,  tow  speed,  hawser  scope, 
and  heading  angle . 

Functions : 
extreme  () 
set_towspd ( ) 
set  wind() 
set_hdg () 
set_scope () 
set_coef ( ) 
curvindex () 
stoia ( ) 
get_tension () 
get_ext_opt ( ) 
comp_ten_curv ( ) 
show  std_curve() 
show_speed ( ) 
show_length ( ) 
clipO 
wait_plt ( ) 

♦include  "stdio.h" 

tinclude  "dos.h" 

♦include  "stdlib.h" 

♦include  "keydef.h"    /*  Define  aux  byte  values  for  IBM  keyboard  */ 

♦include  "video. h" 

♦include  "math.h" 

typedef  struct  Subarray 
{ 

short  c[4] [6]  ; 
}  SUBARRAY; 

typedef  struct  Table 
{ 

SUBARRAY  s[4] [3]; 
}  TABLE; 

typedef  struct 
{ 

int  started; 

int  endcol; 
}  data_box; 

static  data_box  input [ ]  = 
{ 

{50,57}         /*  tension  */ 

}; 
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static  char  *label2[]  = 
{ 

"Select  basis  for  computing", 

"extreme  tension:", 

"Actual  mean  tension  (lbs) :  " 

}; 

static  char  *labell(]  = 
{ 

"DYNAMIC  TENSION", 

"Tug:", 

"Tow:", 

"Tabulated  tow:", 


Actual   Tabulated", 


"Displacement : " , 
"Tow  speed:", 
"Wind  speed:", 
"Wind  direction:' 
"Hawser  scope:", 
"Curve  number:", 
"Mean  tension:", 
"Dynamic  tension; 
"Extreme  tension; 


} 


static  char  *menu [ ]  = 

{ 

"1)  Estimated  mean  tension", 
"2)  Actual  mean  tension    " 

>; 

static  char  *menul[]  = 

{ 

"1)  Show  standard  tension  curve  ", 
"2)  Show  effects  of  tow  speed  ", 
"3)  Show  effects  of  hawser  length", 
"4)  Return  to  PROGRAM  OPTIONS 

>; 

static  char  *menu2 [ ]  ■ 
{ 

"1)  Show  graph 

"2)  Return  to  OPTIONS" 

}; 

static  char  *footer[]  ■ 
{ 

"  Please  wait  ", 

"  Press  INS  to  continue  " 

>; 

static  char  *tabtow[]  = 

{ 
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"YRBM", 
"FFG  1", 
"DD  963", 
"AE  26", 
"LHA  1", 
"CVN  65" 


static  char  ext_hdr [ ]  =  {  "OPTIONS"  }; 

static  int  startrow=2; 

static  int  startcol=20; 

static  int  endrow=22; 

static  int  endcol=60; 

float    fa [4] [25] ,fb[4] [25],fc[4] [25] ,fd[4] [25]; 

static  float  towdisp [ ]  =  {  650.0,  3200.0,  6700.0, 

20000.0,  40000.0,  85000.0  ); 
static  float  towspd [ ]  =  {  3.0,  6.0,  9.0  }/ 
static  float  windspd[]  =  {  15.0,  20.0,  25.0,  30.0,  }  ; 
static  float  winddir[]  =  {  0,  60,  120,  180  }; 
static  float  scope [ ]  =  {  1000,  1200,  1500,  1800,  2100  }; 

void  extreme ( ) , curvindex ( ) , set_towspd ( ) , set_wind ( ) ; 
void  set_hdg ( ) , set_scope ( ) , get_tension ( ) , get_ext_opt ( ) ; 
void  show_std_curve ( ) , show_speed ( ) , show_length ( ) ; 
void  comp_ten_curv ( ) , set_coef ( ) , clip ( ) , set_tugtype ( ) ; 
void  set_towtype ( ) , wait_plt ( ) ; 

extern  char  tug [15];  /*  tug  class  */ 

extern  char  hull_no(24];  /*  hull  number  entered  by  user  */ 

extern  float  tug_data[5];  /*  array  to  store  tug  data  */ 

extern  float  tow_data[5];  /*  array  to  store  tow  data  */ 

extern  float  ship_data [6] ;  /*  array  to  store  Table  G-2  data  */ 

extern  float  dock_data[7] ;  /*  array  to  store  drydock  data  */ 

extern  float  barge_data (8 ] ;  /*  array  to  store  barge  data  */ 

extern  float  ext_data [10] ;  /*  extreme  tension  results  */ 

extern  float  spd_data [3] [4] ;  /*  tow  speed  effects  results  */ 

extern  float  lgth_data[3] [4];  /*  hawser  length  effects  results  */ 

TABLE  t  [18] ; 

/*******************************•***************************************** 
This  function  computes  the  extreme  tension  based  on  the  given 

parameters . 

••A***********************************************************************/ 

void  extreme (type, tension, extr_ten, curve,  flag) 

int  type; 

float  'tension; 

float  *extr_ten; 

int  * curve; 

int  *flag; 

{ 

char  inline [81]; 
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char  textl[39] ,text2[39] ; 

char  string [26]; 

float  n,x; 

float  tow_res, haw_res, res_dat [5] ; 

int  i, j; 

int  k=0; 

int  m=0; 

int  nn=0; 

int  nl; 

int  nbr, status, choice; 

short  array(15]; 

FILE  *in; 

int  tugtype, towtype, windspeed, towspeed, head, length, tugtow; 

int  row,  col,  start,  startl,  key; 

in=f open ( "curve .tab", "r") ; 

/*  draw  background  and  border  */ 

draw_window  (start row,  started,  endrow,  endcol,  DOUBLE,  REV_VID)  ; 

/*  write  header  */ 

write_header  (startrow,  started,  endcol,  label  1  [0]  ,  REV_VID)  ; 

/*  get  choice  for  basis  */ 

for  (i=0;  i<2;  i++) 

{ 

start  =  (endcol-startcol-strlen  (label2  [i]  )  ) /2  +  started; 

write_string(startrow+8+i, start, label2 [i] , REV_VID) ; 
} 

start  =  (endcol-startcol-strlen  (menu  [0]  ))  /2  +  started; 
choice  =  popup (menu, "12", 2, startrow+10, start-2, NONE, REV_VID, 0) ; 
ext_data[9]  =  (float) choice; 

clear (startrow+8, startcol+1, endrow-3, endcol-1, REV_VID) ; 

if  (choice=«=0)     /*  use  estimated  tension  from  App .  G  method  */ 

{ 

if  (*flag«l) 
{ 

if  (type-=SHIP) 
{ 

ship_resist (tow_data, ship_data, res_dat, &tow_res) ; 
hawser_resist (tug_data, tow_data [1]  ,  tow_res,  &haw_res) ; 
"tension  ■  tow_res  +  haw_res; 
} 
else  if  (type«»DOCK) 

dock_resist (tug_data, dock_data, tow_data, tension) ; 

else  /*  type— BARGE  */ 

barge_resist (tug_data, barge_data, tow_data, tension) ; 
) 

*flag-0; 
) 
else 

{ 
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*flag-l; 

/*  prompt  for  actual  mean  tension  */ 

write_string(startrow+8, startcol+3, label2 [2] , REV_VID) ; 
vid_box (start row+8, startcol+3 +strlen ( label2 [2 ] ) , 7 ) ; 
get_tension (start row+8, started +3 +strlen (label2 [2] ) , tension) 
clear (start row+8, startcol+1 , endrow-3, endcol-1 , REV  VID) ; 


» 


/*  write  labels  */ 
for  (i=0;  i<13;  i++) 

write_string(startrow+5  +  i, startcol+3, labell [i  +  1]  ,  REV_VID) ; 

/*  write  footer  */ 

start  ■  (endcol-startcol-strlen  (footer  [0]  )) /2  +  started; 

write_string(endrow, start, footer [0] , BLINK_REV_VID) ; 

/*  set  tugtype  */ 
set_tugtype (fitugtype) ; 

/*  determine  towtype  */ 
set  towtype (& towtype ) ; 
ext_data [0] ■ (float) towtype; 
ext_data ( 1] "towdisp [towtype] ; 

/*  set  tow  speed  */ 

set_towspd (tow_data [1] , &towspeed) ; 

ext_data [2] =towspd[towspeed] ; 

/*  set  wind  speed  */ 

set_wind (tow_data [2 ] , Swindspeed) ; 

ext_data [3] -windspd [windspeed] ; 

/*  set  heading  angle  */ 
set_hdg (tow_data [3] , &head) ; 
ext_data [4] =winddir [head]  ; 

/*  set  hawser  scope  */ 
set_scope (tug_data [2] , filength) ; 
ext_data [5] =scope [length] ; 

/*  compute  tug-tow  combination  index  */ 
tugtow  -  towtype  +  6* tugtype; 

/*  set  up  coefficient  array  */ 
set_coef () ; 

/*  read  in  data  table  for  curve  numbers  from  curve. tab  */ 
for  (nn=0;  nn<18;  nn++) 

{ 

for  (m-0;  m<4 ;  m++) 
( 

for  (k-0;  k<4 ;  k++) 

{ 

fgets (inline, 81, in) ; 
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while (inline [0]=-  '!') 

fgeta (inline, 81, in) ;       /*  skip  comments,  headers,  etc.  */ 

/*  convert  string  to  array  of  short  integers  */ 
status=stoia (inline, array, Snbr, 15) ; 

/*  assign  curve  numbers  to  data  structure  */ 

for(j=0;  j<3;  j++) 

{ 

for  (i=0;  i<5;  i++) 

t[nn] .s[m] [j] .c[k] [i]  -  arrayfi  +  j*5] ; 
) 
} 
} 
} 

/*  compute  i, j  corresponding  to  curve  number  */ 
*curve  =  t [tugtow] . s (windspeed] [towspeed] .c [head] [length] ; 
ext_data[6]  =  * curve; 
ext_data[7]  =  *tension/1000 .0; 

curvindex (*curve, &i, & j) ; 

x=(*tension) /100000.0; 

/A**************************/ 

/*  compute  extreme  tension  */ 
/a**************************/ 

*extr_ten  =  100 .0* (x+fa [i] [ j] *x/ (1 . 0+fb [i] [ j] *x) 

+  fc[i] [ j] *x*x*x*x/(1.0+fd(i] [ j] *x*x*x*x) ) ; 

ext_data(8]  =  *extr_ten; 

/*  check  magnitude  of  extreme  tension  */ 

if  (*extr_ten>4  00.0) 

( 

/*  erase  blinking  footer  */ 

start  =  (endcol-startcol-strlen  (footer  [0]  )) /2  +  started; 

for  (k=0;  k<  strlen  (footer [0] ) ;  k++) 
write_char (endrow, start, 205, REV_VID) ; 

/*  display  error  message;  return  to  previous  menu  */ 
sprintf (text 1, "Predicted  extreme  tension  >  400  kips") ; 
sprintf (text2, "*=->  SLOW  DOWN,  PAYOUT,  OR  BOTH  <=="); 
display_error (ERROR, textl, text2) ; 
cursor_of f ( ) ; 
return  ; 
) 

/*  print  result  */ 

write_string(startrow+5, startcol+4+strlen (labell ( 1] ) , tug, REV_VID) ; 
write_string(startrow+6, startcol+4+strlen (labell [2] ) , hull_no, REV_VID) ; 
write_string(startrow+7, startcol+4+strlen (labell (3] ) , tabtow (towtype] , REV_VID) 

sprintf (string, "%8.0f   %8.0f", tow_data [0] , towdisp [towtype] ) ; 
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write_string(startrow+9, startcol+3+15, string, REV_VID) ; 

sprint f (string, "%8.1f   %8.1f", tow_data [ 1] , towspd [towspeed] ) ; 
write_string(startrow+10, startcol+3+15, string, REV_VID) ; 

sprint f (string, "%8.0f   %8.0f", tow_data [2] , windspd [windspeed] ) ; 
write_string(startrow+ll, startcol+3+15, string, REV_VID) ; 

sprintf (string, "%8.0f   %8 .Of ", tow_data [3] , winddir [head] ) ; 
write_string (startrow+12, startcol+3+15, string, REV_VID) ; 

sprintf (string, "%8.0f   %8.0f", tug_data[2] , scope [length] ) ; 
write_string(startrow+13, startcol+3+15, string, REV_VID) ; 

sprintf (string, "%d" , *curve) ; 

write_string(startrow+14, startcol+15+strlen ( label 1 [10] ) , string, REV_VID) ; 

sprintf (string, "%10 .2f ", * tens ion/1000 . 0) ; 

write_string (startrow+15, startcol+4+3+strlen (labell [11] ) , string, REV_VID) ; 

x  =  *extr_ten  -  *tension/1000 .0; 
if  (x  <  0.0  ) 

x  -  0.0; 
sprintf (string, "%10 . 2f ",  x)  ; 
write_string(startrow+16, startcol+4+strlen (labell [12] ) , string, REV_VID) ; 

sprintf (string, "%10 .2f " , *extr_ten) ; 

write_string(startrow+17, startcol+4+strlen (labell [13] ) , string, REV_VID) ; 

for  (i=0;  i<3;  i++) 

write_string(startrow+15+i, startcol+15+strlen (labell ( 13] ) , "kips", REV_VID) 

pause  (startrow,  started,  endrow,  endcol,  footer  ( 1]  ,  REV_VID)  ; 
return; 

} 

/A******************************************* 
This  function  sets  the  tug  type  index. 

void  set_tugtype (tugtype) 

int  *tugtype; 

{ 

if  (tug_data[0]-« 0) 

*tugtype«0; 
else  if  (tug_data[0]«l  ||  tug_data  [0]=-2) 

*tugtype~l; 
else 

*tugtype=2; 
) 

/a******************************************* 

This  function  sets  the  tow  type  index. 

************************************* *•******/ 

void  set_towtype (towtype) 
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int  *towtype; 
{ 

int  j=0; 

while  (1) 
{ 

if  (tow_data[0]  <  towdisp[0])  { 
*towtype=0; 
break; 
) 

else  if  (tow_data [O]==towdisp [ j  ]  )  { 
*towtype= j; 
break; 
} 

else  if  (tow_data[0]  >  towdisp[j])  { 
if  (j<5)  { 

if  (tow_data[0]  >  towdispfj]  &&  tow_data(0]  <  towdisp [ j+1 ) )  { 
if  (tow_data[0]  >  0 .75*towdisp [ j+1]  )  { 
*towtype= j+1; 
break; 
} 
else  { 

*towtype= j; 
break; 
} 
} 
else  { 

continue; 
} 
> 
else  { 

*towtype= j; 
break; 
) 
} 
else  { 

j++; 

continue; 

> 
} 
} 

This  function  sets  the  tow  speed  index. 

void  set_towspd (speed, towspeed) 

float  speed;  /*  tow  speed  */ 

int  *towspeed;  /*  tow  speed  index  */ 

{ 

if  (speed<4.5) 
*towspeed=0 ; 
else  if  (speed>=4.5  &&  speed<7.5) 
*towspeed>=l; 
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else 

*towspeed~2; 

} 

This  function  sets  the  wind  speed  index. 
a********************************************/ 

void  set_wind (wind, windspeed) 

float  wind;  /*  wind  speed  */ 

int  *windspeed;  /*  wind  speed  index  */ 

{ 

if  (tow_data[2]<17.5) 

*windspeed=0 ; 
else  if  (wind>=17.5  &&  wind<22.5) 

*windspeed=l; 
else  if  (wind>~22.5  &&  wind<27.5) 

* windspeed=2 ; 
else 

* windspeed=3  ; 
) 

This  function  sets  the  heading  index. 

void  set_hdg(hdg, head) 

float  hdg;  /*  heading  angle  */ 

int  *head;  /*  heading  angle  index  */ 

{ 

if  (tow_data[3]<40.0) 

*head=0; 
else  if  (hdg>=40.0  &&  hdg<70.0) 

*head=l; 
else  if  (hdg>=110.0  &&  hdg<140.0) 

*head=2; 
else 

*head=3; 
} 

/a******************************************* 
This  function  sets  the  length  index. 

void  set_scope (scope, length) 

float  scope;  /*  hawser  length  */ 

int  *length;  /*  h   ier  length  index  */ 

{ 

char  textl[39] , text2[39] ; 

if  (scope<1000.0) 
{ 

/*  no  data  for  shorter  scope  */ 

sprintf (textl, "No  data  for  scopes  less  than  1000  ft") 

display_error (WARN, textl, "  ") ; 
) 
else  if  (scope>-1000.0  &&  scope<1200 . 0) 
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*length«0; 
else  if  (scope>-1200.0  &&  scope<1500 . 0) 

*length«l; 
else  if  (scope>=1500.0  &&  scope<1800 . 0) 

*length=2; 
else  if  (scope>=1800.0  &&  scope<2 100 . 0) 

*length=3; 
else 

*length=4 ; 


} 


/************************************************************************* 
This  function  sets  up  the  coefficient  arrays  for  computing  the 
standard  curves  for  extreme  tension. 

*********************************************************************** 

void    set_coef () 

{ 

int    i; 
float    n,nl; 


for    (i=0;    i<25;    i++) 
{ 

n=    (float) i; 
fa[0] [i]    =    0.3*n; 
if    (i>7) 
{ 

nl    =    n-7.0; 

fa[0] [i]    +=    0.00013*nl*nl*nl*nl; 

} 

fb[0] [i]  -    0.0; 

fc[0] [i]  =    0.0; 

fd[0] [i]  -    0.0; 

fa[l] [i]  =    0.6*n+0.0003*n*n*n; 

fb[l] [i]  =    3.0; 

fc[l][i]  =    0.0; 

fd[l] [i]  -    0.0; 

fa[2] [i]  =    0.11*n; 

if    (i>7) 

{ 

nl    =   n-7.0; 

fa[2] [i]    +-    0.0002*nl*nl*nl*nl; 

} 

fb[2] [i]    -    3.0+0.11*n; 

fc(2] [i]    -    20.0*fa[2] [i]; 

fd[2] [i]    -    5.0; 

fa[3] [i]    -    0.03*n; 

if    (i>7) 

{ 

nl    =    n-7.0; 

fa[3] [i]    +-    0.00014*nl*nl*nl*nl; 

} 

fb[3] [i]  -  5.0+0.04*n; 

fc[3] [i]  -  80.0*fa[3] [i] ; 

fd[3] [i]  -  6.0; 
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} 
} 

/•a*********************************************************************** 

This  function  takes  a  "standard  curve"  number  and  converts  it  to 
its  component  indices . 
a*************************************************************************/ 

void  curvindex (curve, i, j) 
int  curve ; 
int  *i; 
int  *j; 

{ 

if  (curve<25)  *i=0; 

else  if  (curve>24  &&  curve<50)  *i=l; 

else  if  (curve>49  &&  curve<75)  *i=2; 

else  if  (curve>74  &&  curve<100)  *i=3; 

(*j)  -  curve  -  25* (*i)  ; 
) 

This  function  gets  the  user' s  input  for  the  data  requested  in  the 
function  extreme () .  Uses  screen_getstring ()  for  screen  I/O.  Some  data 
checking  is  performed  for  each  data  type. 

void  get_tension (row,  col,  data) 

int  row; 

int  col; 

float  *data; 

{ 

int  nbr;  /*  required  arg  for  stofa()        */ 

int  status;  /*  takes  return  value  for  stof a ( )  */ 

char  string[24];  /*  input  string  */ 

char  textl[39],  text2[39];  /*  error  message  text  */ 

int  j,  k;  /*  counters  */ 

cursor_on();  /*  turn  on  cursor  */ 

goto  xy (row, col);  /*  move  cursor  to  start  of  box     */ 

/*  get  user  input  */ 

screen_getstrg (0, row, col, string, N0RM_VID, input) ; 

/*  check  for  valid  numeric  input  */ 
for  (k-0;  k<strlen (string) ;  k++) 
{ 

if  (  string  [k]— '  .'  )  ; 

else  if  (string(k]<'0'  ||  string [k] >' 9' ) 

i 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR, textl, "  ") ; 
vid_box (row, col, 7) ; 
get_tension (row, col, data) ; 
return  ; 
I 
} 
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/*  if  input  string  contains  valid  numbers  only,  */ 
/*    convert  string  to  float  */ 
status  =  stof a (string, data, Snbr, 1) ; 

/•a************************************** *********/ 

/*  check  data  for  consistency  */ 

/•a***********************************************/ 

if  (*data<0.0) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR, text 1, "  ") ; 

vid_box (row, col, 7) ; 

get_tension (row, col, data) ; 

return  ; 
I 

if  (*data>100000) 
{ 

sprintf (textl, "Mean  tension  is  beyond  the  valid"); 

sprintf (text2, "range  of  input--please  try  again"); 

display_error (ERROR, textl, text2) ; 

vid_box (row, col, 7) ; 

get_tension (row, col, data) ; 

return; 
) 

cursor_of f ( ) ; 
goto  xy (0, 0) ; 


} 


/A************************************************************************ 
This  function  displays  a  popup  menu  which  lists  the  graphics  options 
available  in  this  module. 

void  get_ext_opt (flag, type, curve, mean, ext, hilite) 

int  flag;  /*  indicates  estimated  or  actual  mean  selected  */ 

int  type, curve;  /*  tow  type,  std  curve  number  */ 

float  mean, ext;  /*  mean,  extreme  tensions  */ 

int  hilite;  /*  popup  menu  choice  to  highlight  */ 

{ 

int  choice, start; 

int  i , j ; 

char   textl [39] , text2[39] ; 

cursor_of f () ; 

/*  draw  background  and  border  */ 

draw_window  (startrow,  started,  endrow,  endcol,  DOUBLE,  REV_VID)  ; 

/*  display  popup  menu  */ 

start  «  (endcol-startcol-strlen  (menul  [0]  )  )  /2  +  started; 
write_header  (startrow,  started,  endcol,  ext_hdr,  REV_VID)  ; 
choice-popup (menul, "1234", 4, start row+5, start- 2, NONE, REV_VID, hilite) ; 

if  (choice=-0) 
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{ 

curvindex (curve, &i, & j) ; 
show_std_curve (i,  j, curve, mean, ext) ; 
get_ext_opt (flag, type, curve, mean,  ext,  1)  ; 
} 

else  if  (choice=l) 
{ 

curvindex (curve,  &i,  & j)  ; 

if  (flag) 

{ 

sprintf (textl, "This  option  uses  only  predicted"); 
sprintf (text2, "mean  tensions" )  ; 
display_error (WARN, textl, text 2) ; 
cursor_of f () ; 
) 

show_speed (type, i, j, curve) ; 
get_ext_opt (flag, type, curve, mean, ext, 2) ; 
) 

else  if  (choice==2) 
{ 

curvindex (curve, &i, & j) ; 

if  (flag) 

{ 

sprintf (textl, "This  option  uses  only  predicted"); 
sprintf (text2, "mean  tensions") ; 
display_error (WARN, textl, text2) ; 
cursor_of f () ; 
> 

show_length (type, i, j , curve) ; 
get_ext_opt (flag, type, curve, mean, ext,  3) ; 
} 

else  return; 
) 

/****************************#*******************************************• 
This  function  displays  the  extreme  tension  curve  corresponding  to 
the  conditions  specified  for  the  given  tug  and  tow. 
•a************************************************************************/ 

void  show_std  curve (i, j, curve, mean, ext) 

int  i , j , curve ; 

float  mean, ext; 

{ 

int  k;  /*  dummy  counter  */ 

float  x [121] , y [121] ;        /*  arrays  to  hold  x,  y  coordinates  */ 

float  xl,yl,x2,y2;  /*  coordinates  for  drawing  lines  */ 

char  labx [25] , laby [25] ;     /*  strings  for  x,  y  axis  labels  */ 

short  kd=2;  /*  graph  "kode"  */ 

short  npts;  /*  number  of  points  to  plot  */ 

short  ntx=2,nty=l;  /*  skip  factor  for  axis  numbers  */ 

short  itype;  /*  designates  x  or  y  axis  label  in  label ()  */ 

short  nsym;  /*  symbol  code  */ 

float  xOi-1.0764; 

float  yOi-1.0; 

float  xli-6.624; 


268 


float  yli=4.35; 
float  xmn=0.0; 
float  xn\x=120.0; 
float  xtc=10.0; 
float  ymn=0.0; 
float  ymx=4  00.0; 
float  ytc=50.0; 
float  xxmax; 
float  xsm, ysm; 


/*  min  x  value  */ 

/*  max  x  value  */ 

/*  x  axis  tic  value 

/*  min  y  value  */ 

/*  max  y  value  */ 

/*  y  axis  tic  value 


'/ 


/*   x  corresponding  to  y=400.0  kips  */ 
/*  smallest  x, y  in  world  coordinates  */ 


/* 
/* 
/* 


convert  to  kips  */ 
initialize  graphics  */ 
set  position  on  screen 


xsm  =  xmn  -  (xOi/xli) * (xmx-xmn) ; 

ysm  =  ymn  -  (yOi/yli) * (ymx-ymn) ; 

mean  /=  1000.0; 

setplt () ; 

locate (SxOi, SyOi, &xli, &yli) ; 

xyaxis (&xmn, &xmx, ixtc, &ymn, &ymx, 

&ytc, &xmn, &ymn, &kd) ; 
axnum(&ntx, &nty)  ; 
itype=l; 

sprintf (labx, "Mean  Tension  (kips)_"); 
label (fiitype, labx) ;  / 

itype=2; 

sprintf (laby, "Extreme  Tension  (kips)_") ; 

label (Sitype, laby) ;  /*  write  y-axis  label 

comp  ten  curv (i, j, x, y) ;  /*  compute  curve  pts 


/*  draw  axes  */ 

/*  write  axis  numbers  */ 


write  x-axis  label  */ 


clip(x, y) ; 


*/ 

*/ 
/*  clip  curve  above  4  00kips  */ 


npts=122; 

line3 (Snpts, x, y) ; 


/*  draw  line  thru  pts  */ 


/*  don't  plot  points  if  mean  tension  >  120  kips  */ 

if  (mean<=120 .0) 

{ 


npts=l; 

x[0]=  mean; 

y(0]=  ext; 

nsym=3 ; 

symplt (Snpts, x, y, finsym) ; 


/*  plot  symbol  at  computed   */ 
/*  value  of  extreme  tension  */ 

/*  use  diamond  as  data  symbol  */ 


xl=  mean; 

y 1=0.0 ; 

x2=*  mean; 

y2=  ext; 

drawu(&xl, &yl, &x2,  &y2)  ; 


/*  draw  line  */ 


xl=0.0; 

yl=  ext; 

x2=  mean; 

y2=  ext ; 

drawu (&xl, &yl , &x2,  &y2)  ; 


} 


/*  draw  line  */ 


xl=5.0; 
yl-  380.0; 


/*  write  label  */ 
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} 


sprintf (labx, "Curve  No.  %d_", curve); 
labely(&xl, &yl, labx) ; 

/*  wait  for  keystroke,  then  exit  */ 
wait_plt () ; 


/*  dummy  counter  */ 

/*  coordinates  for  drawing  */ 


/a************************************************************************ 

This  function  shows  the  effects  of  speed  on  extreme  tension  by 
computing  the  mean  tension  for  Vtow  +  /-  1.0  kts,  finding  the  appropriate 
extreme  tension  curves,  and  displaying  a  graph  of  all  three  curves. 
A  summary  of  results  is  displayed  prior  to  displaying  the  graphs. 
•A************************************************************************/ 

void  show_speed (type, i, j, curve) 

int  type; 

int  i, j, curve; 

{ 

float  x_hi[121] ,x_lo[121] ,y_hi[121] ,y_lo[121] ; 

float  x(121],y[121] ; 

float  tension_hi, tension_lo, extr_hi, extr_lo; 

float  mean,ext; 

float  spdhi, spdlo, oldspd; 

int  tugtype, towtype, tugtow, windspeed, head, length; 

int  towspdhi, towspdlo; 

int  curve_hi, i_hi, j_hi; 

int  curve_lo, i_lo, j_lo; 

int  k; 

float  xl,yl,x2,y2; 

char  labx [25] , laby(25] ; 

short  kd=2; 

short  npts; 

short  ntx=2,nty=l; 

short  itype; 

short  nsym; 

float  x0i=1.0764; 

float  y0i=1.0; 

float  xli=6.624; 

float  yli=4.35; 

float  xmn=0.0; 

float  xmx-120.0; 

float  xtc-10.0; 

float  ymn-0.0; 

float  ymx»4  00.0; 

float  ytc«=50.0; 

float  xxmax; 

float  res_dat [ 5 ] ; 

float  tow_res , haw_res; 

float  xx ; 

float  xsm,ysm; 

int  start , choice; 


/* 
/* 
/* 
/* 
/* 
/* 


'/ 


strings  for  x,  y  axis  labels 

graph  "kode"  */ 

number  of  points  to  plot  */ 

skip  factor  for  axis  numbers  */ 

designates  x  or  y  axis  label  in  label ()  */ 

symbol  code  */ 


/* 
/* 
/* 
/* 
/* 
/* 
/* 


min  x  value  */ 
max  x  value  */ 
x  axis  tic  value 
min  y  value  */ 
max  y  value  */ 
y  axis  tic  value 


'/ 


x  corresponding  to  y=400.0  kips  */ 


/*  smallest  x, y  in  world  coordinates  */ 


xsm  =  xmn  -  (xOi/xli) * (xmx-xmn) ; 
ysm  ■  ymn  -  (yOi/yli) * (ymx-ymn) ; 
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/*  write  message  */ 

draw_window (startrow+11 , startcol+12, startrow+13,  startcol+27, 

SINGLE, REV_VID) ; 
sprintf (labx, "Please  wait") ; 

start  =*  (endcol-startcol-strlen  (labx)  )  /2  +  started; 
write_string(startrow+12, start, labx, BLINK_REV_VID) ; 

/*  set  speeds  */ 
oldspd=tow_data [ 1 ] ; 
spdlo  =  tow_data [ 1] -1 .  0; 
if  (spdlo  <=  0.0) 

spdlo  =  1.0; 
spdhi  =  tow_data [ 1] +1 .0; 
if  (spdhi  >  12.0) 

spdhi  =  12.0; 

/*  compute  mean  tension  */ 

if  (type==SHIP) 

( 

/*  —  for  higer  speed  */ 

tow_data ( 1] =spdhi; 

ship_resist (tow_data, ship_data, res_dat, &tow_res) ; 

hawser_resist (tug_data, spdhi, tow_res, &haw_res) ; 

tension_hi  =  tow_res  +  haw_res; 

/*  —  for  lower  speed  */ 

tow_data [1] =spdlo; 

ship_resist (tow_data, ship_data, res_dat, &tow_res) ; 

hawser  resist (tug_data,  spdlo,  tow  res, &haw_res) ; 

tension  lo  =  tow_res  +  haw_res; 

/*  --  for  given  speed  */ 

tow_data [ 1] =oldspd; 

ship  resist (tow  data, ship_data, res_dat , &tow_res) ; 

hawser_resist (tug_data, oldspd, tow_res, &haw_res) ; 

mean  =  tow_res  +  haw_res; 
) 

else  if  (type«=DOCK) 
{ 

/*  —  for  higer  speed  */ 

t ow_dat a  [  1  ]  =«spdhi  ; 

dock_re«ist (tug_data, dock_data, tow_data, &tension_hi) ; 

/*  —  for  lower  speed  */ 

tow_data [1] —spdlo; 

docJc_resist  (tug_data,  dock_data,  tow_data,  &tension_lo)  ; 

/*    —    for   given    speed    */ 

tow_data [1] =oldspd; 

dock  resist (tug_data, dock_data, tow_data, Smean) ; 
} 
else  /*  type— BARGE  */ 

{ 

/*  —  for  higer  speed  */ 
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tow_data [1] »spdhi; 

barge_resist (tug_data, barge_data, tow_data, &tension_hi) ; 

/*  —  for  lower  speed  */ 

tow_data [ 1] =spdlo; 

barge_resist (tug_data,barge_data, tow_data, 4tension_lo) ; 

/*  --  for  given  speed  */ 

tow_data [ 1] =oldspd; 

barge_resist (tug_data, barge_data, tow_data, &mean) ; 


} 


/*  convert  to  kips  */ 
tension_lo  /=  1000.0; 
tension_hi  /=  1000.0; 
mean  /=  1000.0; 

/*  set  common  indices  */ 
set_tugtype (Stugtype) ; 
set_towtype (fitowtype) ; 
tugtow  =  towtype  +  6*tugtype; 

set_wind(tow_data [2] , &windspeed) ; 
set_hdg (tow_data [3] , &head) ; 
set_scope (tug_data[2] , & length) ; 

/*  find  curve  for  spdhi  */ 

set_towspd (spdhi, Stowspdhi) ; 

curve_hi=t [tugtow] . s [windspeed] [towspdhi] .c[head] [length]; 

curvindex (curve_hi, &i_hi, &j_hi) ; 

/*  find  curve  for  spdlo  */ 

set_towspd (spdlo, &towspdlo) ; 

curve_lo=t [tugtow] . s [windspeed] [towspdlo] .c[head] [length]; 

curvindex (curve_lo, &i_lo, & j_lo) ; 

/*  compute  tension  arrays  */ 

comp_ten_curv (i_hi, j_hi, x_hi,  y_hi) ; 

clip (x_hi, y_hi) ; 

comp_ten_curv (i_lo, j_lo, x_lo, y_lo) ; 

clip (x_lo, y_lo) ; 

comp_ten_curv (i, j , x, y) ; 

clip(x,y) ; 

/*  compute  extremes  */ 
xx  ■  tens ion_hi/ 100 .0; 
extr_hi  =  100 . 0* (xx+f a [i_hi] [ j_hi] *xx/ ( 1 . 0+fb [ i_hi] [ j_hi] *xx) + 

fc[i_hi] [ j_hi]*pow(xx,4.0)/ (1.0+ 

fd[i_hi] [ j_hi]*pow(xx,4.0) ) ) ; 

xx  =  tens ion_lo/ 100 .0; 

extr_lo  =  100.0* (xx+f a [i_lo] [ j_lo] *xx/ (1 . 0+fb [i_lo] [ j_lo] *xx) + 

fc(i_lo] [ j_lo]*pow(xx,4.0)/(1.0+ 

fd[i_lo] [ j_lo]*pow(xx,4.0) ) ) ; 
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xx  =  moan/ 100.0; 

ext  =  100.0*(xx+fa[i]  [ j] *xx/ (1 . 0+fb [i]  [ j] *xx)  + 
fc[i]  [  j] *pow(xx,4.0)/ (1 .0  + 
fd[i] [ j] *pow(xx, 4.0) )) ; 


/*  save  result 
spd_data [ 0] 
spd_data ( 1] 
spd_data[2] 
spd_data [0] 
spd_data [ 1] 
spd_data[2] 
spd_data [0] 
spd_data [ 1] 
spd_data[2] 
spd_data [0] 
spd_data [ 1] 
spd_data [2] 


alts  */ 

[o; 

=spdlo; 

[0' 

=oldspd; 

[0. 

=spdhi; 

[i 

=curve  lo; 

(i 

=curve; 

(i 

=curve  hi; 

[2 

=tension  lo 

[2 

=mean; 

[2 

"tension  hi 

(3 

=extr  lo; 

(3 

=ext; 

(3 

=extr  hi; 

/*  print  results  on  screen;  give  option  to  graph  */ 
clear ( start row+1, startcol+1, endrow-1, endcol-1, REV_VID) ; 
write_header (startrow, startcol, endcol, labell [0] , REV_VID) 

/*  —  write  labels  */ 

write_string(startrow+5, start col+2, labell [6] , REV_VID) ; 
write_string(startrow+7, startcol+2, labell [10] , REV_VID) ; 
write_string(startrow+8, startcol+2, labell [11] ,REV_VID) ; 
write_string(startrow+9, startcol+2, labell [12]  , REV_VID) ; 
write_string(startrow+10, startcol+2, labell [13] , REV_VTD) ; 

/*  --  write  tow  speeds  */ 
sprintf (labx, "%6. If", spdlo) ; 
start=startcol+2+strlen (labell [13] ) +1; 
write_string (startrow+5, start, labx, REV_VID) ; 
sprintf (labx, "%6. If ", oldspd) ; 
start=startcol+2+strlen (labell [13] ) +1+7; 
write_string (startrow+5, start, labx, REV_VID) ; 
sprintf (labx, "%6. If", spdhi) ; 
start=startcol+2+3trlen (labell [13]) +1+14 ; 
write_string( startrow+5, start, labx, REV_VID) ; 

/*  —  write  curve  numbers  */ 
sprintf (labx, "%d" , curve_lo) ; 
start=startcol+2+strlen (labell [13] )+l+3; 
write_string(startrow+7, start, labx, REV_VID) ; 
sprintf (labx, "%d", curve) ; 

start=startcol+2+strlen (labell [13] ) +1+7+3; 
write_string(startrow+7, start, labx, REV_VID) ; 
sprintf (labx, "%d", curve_hi) ; 

start=startcol+2+strlen (labell [13] ) +1+14+3; 
write_string(startrow+7, start, labx, REV_VID) ; 

/*  —  write  mean  tensions  */ 


273 


sprintf  (labx, "%6. If ", tension_lo) ; 
start=startcol+2+strlen (labell [13] ) +  1; 
write_string(startrow+8, start, labx, REV_VID) ; 
sprintf (labx, "%6. If ", mean) ; 
start=startcol+2+strlen (labell [13] ) +  1+7; 
write_str ing ( startrow+8 , start , labx, REV_VID ) ; 
sprintf (labx, "%6 . If", tension_hi) ; 
start=startcol+2+strlen (labell [13] ) +1+14; 
write_str ing (startrow+8 , start, labx, REV_VID) ; 

/*  —  write  dynamic  tensions  */ 

xx  =  extr_lo  -  tension_lo; 

if  (xx<0)  xx=0; 

sprintf (labx, "%6. If ",xx) ; 

start=startcol+2+strlen (labell [13] )+l; 

write_string (startrow+9, start, labx, REV_VID) ; 

xx  =  ext  -  mean; 

if  (xx<0)  xx=0; 

sprintf (labx, "%6.1f",xx) ; 

start=startcol+2+strlen (labell [13] ) +1+7; 

write_string (startrow+9, start, labx, REV_VID) ; 

xx  =  extr_hi  -  tension_hi; 

if  (xx<0)  xx=0; 

sprintf (labx, "%6.1f",xx) ; 

start=startcol+2+strlen (labell [13] )+l+14; 

writ e_str ing ( startrow+9, start, labx, REV_VID) ; 

/*  —  write  extreme  tensions  */ 
sprintf (labx, "%6. If", extr_lo) ; 
start=startcol+2+strlen (labell [13] ) +1; 
write_string (startrow+10, start, labx, REV_VID) ; 
sprintf (labx, "%6.1f ", ext) ; 
start=startcol+2+strlen (labell [13] ) +1+7; 
write_string (startrow+10, start, labx, REV_VID) ; 
sprintf (labx, "%6. If ", extr_hi) ; 
start=startcol+2+strlen (labell [13] )+l+14; 
write_string (startrow+10, start, labx, REV_VID) ; 

/*  —  give  menu  to  graph  or  quit  */ 

start  =  (endcol-startcol-strlen  (menu2  [0]  )  ) /2  +  started; 

choice=popup(menu2, "12", 2, startrow+12, start-2, NONE, REV_VID, 0) ; 

if  (choice=~l) 

return; 
else  if  (choice=«=0) 

{ 

setplt();  /*  initialize  graphics  */ 

locate (&x0i, &y0i, &xli, &yli) ;  /*  set  position  on  screen 
xyaxis (&xmn, &xmx, &xtc, 4ymn, &ymx, 

&ytc, &xmn, &ymn, &kd) ;  /*  draw  axes  */ 

axnum(&ntx, &nty) ;  /*  write  axis  numbers  */ 
itype=l; 

sprintf (labx, "Mean  Tension  (kips)_"); 

label (fiitype, labx) ;  /*  write  x-axis  label  */ 
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itype=2 ; 

sprintf (laby, "Extreme  Tension  (kips)_"); 

label (Sitype, laby) ;  /*  write  y-axis  label  */ 

npts=122; 

line3 (Snpts, x_hi, y_hi) ;  /*  draw  line  thru  pts  */ 

line3 (Snpts, x_lo,  y_lo) ; 

line3 (Snpts, x, y) ; 

/*  if  mean  >  120  kips,  don't  plot  points  */ 

if  (tension_lo<=120 .0) 

{ 

npts=l;  /*  plot  symbols        */ 

x_lo[0]=  tension_lo; 

y_lo[0]=  extr_lo; 

nsym=4 ; 

symplt (Snpts, x_lo, y_lo, Snsym) ; 
> 

x_lo[0]=  30.0; 
y_lo[0]=  ysm+5; 
symplt (Snpts, x_lo, y_lo, Snsym) ; 

if  (mean<»120 .0) 
{ 

x[0]=  mean; 

y[0]=  ext; 

nsym=3; 

symplt (finpts, x, y, Snsym) ; 

} 

x[0]=  55.0; 

y[0]=  ysm+5; 

symplt (finpts, x, y, &nsym) ; 

if  (tension_hi<=120 .0) 

{ 

x_hi[0]=  tension_hi; 

y_hi [ 0 ] =  extr_hi ; 

nsym=2; 

symplt (&npt s, x_hi, y_hi, Snsym) ; 
I 

x_hi[0]-  80.0; 
y_hi[0]»  ysm+5; 
symplt (finpts, x_hi,y_hi,  insym) ; 

/*  write  labels  */ 

xl=  35.0; 

yl=  ysm; 

sprintf (labx, "%-.0f  kts_", spdlo) ; 

labely (&xl, &yl, labx) ; 

xl=  60.0; 

yl=  ysm; 

sprintf (labx, "%- . Of  kts_" , oldspd) ; 

labely (&xl, &yl, labx) ; 

xl=»  85.0; 
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yl=  ysm; 

sprintf (labx, "%-.0f  kts_", spdhi) 

labely(&xl, &yl, labx) ; 

wait_plt ( ) ; 
> 
else 

return  ; 


I 


/A************************************************************************ 

This  function  shows  the  effects  of  hawser  length  on  extreme  tension 
by  computing  the  mean  tension  for  Length  +/-  300  feet,  finding  the 
appropriate  extreme  tension  curves,  and  displaying  a  graph  of  all  three 
curves.  A  summary  of  results  is  displayed  prior  to  displaying  the  graphs. 
•••••A********************************************************************/ 

void  show_lengt h( type, i, j, curve) 

int  type; 

int  i, j, curve; 

{ 

float  x_hi[121] ,x_lo(121] ,y_hi[121] ,y_lo[121] ; 

float  x[121] ,y(121] ; 

float  tension_hi, tension_lo, extr_hi, extr_lo; 

float  mean, ext; 

float  hilgth, lolgth, oldlgth; 

int  tugtype, towtype, tugtow, windspeed, head, towspeed; 

int  lengthhi, lengthlo; 

int  curve_hi, i_hi, j_hi; 

int  curve_lo, i_lo, j_lo; 

int  k; 

float  xl,yl,x2,y2; 

char  labx [25] ,laby[25] ; 

short  kd=2; 

short  npts; 

short  ntx=2,nty=l; 

short  itype; 

short  nsym; 

float  x0i=1.0764; 

float  y0i=1.0; 

float  xli-6.624; 

float  yli-4.35; 

float  xmn»0.0; 

float  xmx»120.0; 

float  xtc-10.0; 

float  ymn«0.0; 

float  ymx=400.0; 

float  ytc=50.0; 

float  xxmax; 

float  ; 

float  res_dat [ 5 ] ; 

float  tow_res, haw_res; 

float  xx ; 

float  xsm, ysm; 

int  start , choice; 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


dummy  counter  */ 
coordinates  for  drawing  */ 
strings  for  x,  y  axis  labels 
graph  "kode"  */ 
number  of  points  to  plot  */ 
skip  factor  for  axis  numbers 


'I 


designates  x  or  y  axis  label  in  label ()  */ 
symbol  code  */ 


/* 


min  x  value 
max  x  value 


/*  x  axis  tic  value  */ 


/* 
/* 
/* 
/* 


min  y  value  */ 
max  y  value  */ 
y  axis  tic  value 


'/ 


x  corresponding  to  y=400.0  kips  */ 
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xsm  =  xmn  -  (xOi/xli) * (xmx-xmn) ; 
ysm  =  ymn  -  (yOi/yli) * (ymx-ymn) ; 

/*  write  message  */ 

draw_window (startrow+11, startcol+12, startrow+13, startcol+27, 

SINGLE, REV_VID) ; 
sprintf (labx, "Please  wait"); 

start  =  (endcol-startcol-strlen (labx) ) /2  +  started; 
write_string(startrow+12, start, labx, BLINK_REV_VID) ; 

/*  set  hawser  lengths  */ 
oldlgth=tug_data[2] ; 
lolgth=tug_data [2 ] -300 . 0; 
if  (lolgth<1000.0) 

lolgth=1000.0; 
hilgth=tug_data [2] +300 . 0; 
if  (hilgth>2100.0) 

hilgth=2100.0; 

/*  compute  mean  tension  */ 

if  (type==SHIP) 

{ 

ship_resist (tow_data, ship_data,  res_dat,  4tow_res)  ; 

/*  —  for  longer  length  */ 

tug_data(2] =hilgth; 

hawser_resist (tug_data, tow_data [1] , tow_res, &haw_res) ; 

tension_hi  =  tow_res  +  haw_res; 

/*  —  for  shorter  length  */ 

tug_data [2] =lolgth; 

hawser_resist (tug_data, tow_data [1] , tow_res, &haw_res) ; 

tension_lo  =  tow_res  +  haw_res; 

/*  —  for  given  length  */ 

tug_data[2] =oldlgth; 

hawser_resist (tug_data, tow_data [1] , tow_res, &haw_res) ; 

mean  =  tow_res  +  haw_res; 
} 

else  if  (type—DOCK) 
{ 

/*  --  for  longer  length  */ 

tug_data [2] -hilgth; 

dock_resist (tug_data, dock_data, tow_data, &tension_hi) ; 

/*  —  for  shorter  length  */ 

tug_data [ 2 ] =lolgth; 

dock  resist (tug  data, dock_data, tow_data, &tension_lo) ; 

/*  —  for  given  length  */ 

tug_data [ 2 ] -oldlgth; 

dock_resist (tug_data, dock_data, tow_data,  &mean) ; 

} 
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else  /*  type==BARGE  */ 

{ 

/*  —  for  longer  length  */ 

tug_data ( 2 ] -hilgth; 

barge_reaist (tug_data,barge_data, tow_data, &tension_hi) ; 

/*  —  for  shorter  length  */ 

tug_data[2]=lolgth; 

barge_resist (tug_data, barge_data, tow_data, &tension_lo) ; 

/*  —  for  given  length  */ 
tug  data [2] =oldlgth; 

barge_resist (tug_data, barge_data, tow_data, (mean) ; 
} 

/*  convert  to  kips  */ 
tension_lo  /=  1000.0; 
tension_hi  /=  1000.0; 
mean  /=  1000.0; 

/*  set  common  indices  */ 
set_tugtype (Stugtype) ; 
set_towtype (fitowtype) ; 
tugtow  =  towtype  +  6*tugtype; 

set_towspd(tow_data [1] , fitowspeed) ; 
set_wind(tow_data [2] , iwindspeed) ; 
set_hdg (tow_data [3] , Shead) ; 

/*  find  curve  for  hilgth  */ 

set_scope (hilgth, filengthhi) ; 

curve_hi=t [tugtow] . s [windspeed] [towspeed] .c[head] [lengthhi] ; 

curvindex (curve_hi, &i_hi, &j_hi) ; 

/*  find  curve  for  lolgth  */ 

set_scope (lolgth, filengthlo) ; 

curve_lo=t [tugtow]  . s [windspeed]  [towspeed]  .c[head]  [lengthlo] ; 

curvindex (curve_lo, &i_lo,  &j_lo) ; 

/*  compute  tension  arrays  */ 

comp_ten_curv (i_hi, j_hi, x_hi, y_hi) ; 

clip (x_hi, y_hi) ; 

comp_ten_curv  (i_lo,  j_lo,  x_lo,  y_lo)  ; 

clip (x_lo, y_lo) ; 

comp_ten_curv ( i , j , x, y ) ; 

clip(x,y)  ; 

/*  compute  extremes  */ 
xx  =  tension_hi/100 .0; 
extr_hi  -  100 . 0* (xx+f a [ i_hi] [ j_hi] *xx/ ( 1 . 0+fb [i_hi] [ j_hi] *xx) + 

fc[i_hi]  [ j_hi] *pow(xx,  4.0)/ (1.0  + 

fd[i_hi]  [ j_hi]*pow(xx,4.0) ) )  ; 

xx  =  tension  lo/lOO.O; 
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extr_lo  -  100.0* (xx+fa[i_lo] I j_lo] *xx/ (1 .0+fb [i  lo] [ j_lo] *xx)  + 
fc[i_lo] [ j_lo] *pow(xx, 4 .0) / (1 .0+ 
fd[i_lo] ( j_lo]*pow(xx, 4.0))); 

xx  =  mean/ 100.0; 

ext  =  100.0* (xx+fa[i] [ j] *xx/ (1 . 0+fb [i] [ j] *xx) + 

fc[i] [ j]*pow(xx,4.0)/ (1.0  + 

fd[i] [ j] *pow(xx, 4.0))); 


/*    save    results    */ 

lgth_data[0] [0 

=lolgth; 

lgth_data(l] (0 

=oldlgth; 

lgth_data[2] [0 

=hilgth; 

lgth_data(0] [1 

=curve    lo; 

lgth_data[l]  [1 

=curve ; 

lgth_data[2] [1 

=curve    hi; 

lgth_data(0] [2 

=tension    lo 

lgth_data[l]  [2 

=mean; 

lgth_data[2]  (2 

=tension   hi 

lgth_data[0]  [3. 

=extr    lo; 

lgth_data[l] [3 

=ext; 

lgth_data[2]  [3 

=extr   hi; 

/*  print  results  on  screen;  give  option  to  graph  */ 
clear ( start row+1, startcol+1, endrow-1, endcol-1 , REV  VID) ; 
write_header  (startrow,  started,  endcol,  labell  [0]  ,  REV_VID) 

/*  —  write  labels  */ 

write_string(startrow+5, startcol+2, labell [9] ,REV_VID) ; 
write_string(startrow+7, startcol+2, labell [10] , REV_VID) ; 
write_string(startrow+8, startcol+2, labell [11] ,REV_VID) ; 
write_string(startrow+9, startcol+2, labell [12] ,REV_VID) ; 
write_string(startrow+10, startcol+2, labell [13] , REV_VID) ; 

/*  —  write  hawser  lengths  */ 
sprintf (labx, "%6.0f ", lolgth) ; 
start=startcol+2+strlen (labell [13] )+l; 
write_string(startrow+5, start, labx, REV_VID) ; 
sprintf (labx, "%6 . Of ", oldlgth) ; 
start=startcol+2+strlen (labell [13] ) +1+7; 
write_string(startrow+5, start, labx, REV_VID) ; 
sprintf (labx, "%6. Of ", hilgth)  ; 
start=startcol+2+strlen (labell [13] ) +1+14; 
write_string(startrow+5, start, labx, REV_VID) ; 

/*  —  write  curve  numbers  */ 
sprintf (labx, "%d" , curvelo) ; 
start=startcol+2+strlen (labell [ 13] ) +1+3 ; 
write_string(startrow+7, start, labx, REV_VID) ; 
sprintf ( labx, " %d" , curve )  ; 

start=startcol+2+strlen (labell [ 13 ] ) +1+7+3 ; 
write_string(startrow+7, start, labx, REV_VID) ; 
sprintf (labx, "%d", curve_hi) ; 
start-startcol+2+strlen (labell [ 13] ) +1+14+3; 
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write_string(startrow+7, start, labx, REV_VID) ; 

/*  —  write  mean  tensions  */ 
sprintf (labx, "%6. If", tension_lo) ; 
start=startcol+2+strlen ( labell ( 13 ] ) +1 ; 
write_string (startrow+8 , start, labx, REV  VID) ; 
sprintf (labx, "%6. If ", mean) ; 
start=startcol+2+strlen (labell [13] ) +  1+7; 
write_string( startrow+8, start, labx, REV_VID) ; 
sprintf (labx, "%6. If", tension_hi) ; 
start=startcol+2+strlen (labell [ 13] ) +1+14; 
write_string( startrow+8, start, labx, REV_VID) ; 

/*  —  write  dynamic  tensions  */ 

xx  =  extr_lo  -  tension_lo; 

if  (xx<0)  xx=0; 

sprintf (labx, "%6.1f",xx) ; 

start=startcol+2+strlen (labell [ 13 ] ) +1 ; 

write_string (startrow+9, start, labx, REV_VID) ; 

xx  =  ext  -  mean; 

if  (xx<0)  xx=0; 

sprintf (labx, "%6.1f",xx) ; 

start=startcol+2+strlen (labell [13] ) +1+7; 

write_string (startrow+9, start, labx, REV_VID) ; 

xx  =  extr_hi  -  tension_hi; 

if  (xx<0)  xx=0; 

sprintf (labx, "%6.1f",xx) ; 

start=startcol+2+strlen (labell [13] ) +1+14; 

write_string (startrow+9, start, labx, REV_VID) ; 

/*  --  write  extreme  tensions  */ 
sprintf (labx, "%6. If", extr_lo) ; 
start=startcol+2+strlen (labell [13] ) +1; 
write_string(startrow+10, start, labx, REV_VID) ; 
sprintf (labx, "%6. If", ext) ; 
start=startcol+2+strlen (labell [13] )+l+7; 
write_string(startrow+10, start, labx, REV_VID) ; 
sprintf (labx, "%6. If ", extr_hi) ; 
start=startcol+2+strlen (labell [13] )+l+14; 
write_string(startrow+10, start, labx, REV_VID) ; 

/*  --  give  menu  to  graph  or  quit  */ 

start  ~  (endcol-startcol-strlen  (menu2  [0]  )  ) /2  +  started; 

choice=popup(menu2, "12", 2, startrow+12, start-2, NONE, REV_VID, 0) ; 

if  (choice==l) 

return; 
else  if  (choice==0) 

{ 

setplt();  /*  initialize  graphics  */ 

locate (SxOi, SyOi, &xli, &yli) ;         /*  set  position  on  screen  */ 
xyaxis (&xmn, &xmx, &xtc, iymn, &ymx, &ytc, &xmn, &ymn, &kd) ;   /*  draw  axes  */ 
axnum(&ntx, &nty) ;  /*  write  axis  numbers  */ 

itype«l; 
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sprintf (labx, "Mean  Tension  (kips)_"); 

label (Sitype, labx) ;  /*  write  x-axis  label  */ 

itype=2 ; 

sprintf (laby, "Extreme  Tension  (kips)  "); 

label (Sitype, laby) ;  /*  write  y-axis  label  */ 

npts=122; 

line3 (Snpts, x_hi,  y_hi) ;  /*  draw  line  thru  pts  */ 

line3 (Snpts, x_lo, y_lo) ;  /*  "  */ 

line3 (Snpts, x,y) ;  /*  "  */ 

/*  don't  plot  points  if  mean  tension  >  120  kips  */ 
if  (tension_lo<=120.0) 

{ 

npts=l;  /*  plot  symbols        */ 

x  lo[0]=  tension_lo; 

y_lo(0]=  extr_lo; 

nsym=4 ; 

symplt ( &npts, x_lo, y_lo, Snsym) ; 
} 

x_lo[0]=  30.0; 
y_lo[0]=  ysm+5; 
symplt (Snpts, x_lo, y_lo, Snsym) ; 

if  (mean<=120 .0) 

< 

x[0]=  mean; 

y[0]=  ext; 

nsym=3; 

symplt (&npts, x,  y,  Snsym)  ; 
} 

x[0]=  55.0; 
y[0]=  ysm+5; 
symplt (Snpts, x, y, Snsym) ; 

if  (tension_lo<=120.0) 

{ 

x_hi[0]=  tension_hi; 

y_hi [ 0 ] ■  extr_hi; 

nsym»2; 

symplt (Snpts, x_hi,y_hi, Snsym) ; 

} 

x_hi[0]-  80.0; 

y_hi [ 0 ] ■  ysm+  5 ; 

symplt (Snpts, x_hi, y_hi, Snsym) ; 

/*  write  labels  */ 

xl=  35.0; 

yl=  ysm; 

sprintf (labx, "%-.0f  ft_", lolgth) ; 

labely (Sxl, Syl, labx) ; 

xl»  60.0; 

yl»  ysm; 

sprintf (labx, "%-.0f  ft_", oldlgth) ; 
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labely(&xl, &yl, labx) ; 

xl=  85.0; 

yl=  yam; 

sprintf (labx, "%-.0f  ft_",hilgth) ; 

labely(&xl, &yl, labx) ; 

wait_plt ()  ; 
} 
else 

return  ; 

} 

/••a******************************************************** 
This  function  computes  the  array  of  points  to  plot  for 
the  standard  tension  curve  indicated  by  i  and  j . 

a***********************************************************/ 

void  comp_ten_curv (i, j, x, y) 
int  i ,  j ; 
float  *x, *y; 
{ 

int  k; 

float  xl; 

for  (k=0;  k<121;  k++) 
{ 

x(k]=(float)k; 
xl=x(k]/100.0; 
y[k]=  100.0*(xl+fa[i] [ j] *xl/ (1 . 0+fb [i] [j]*xl) 

+  fc[i] [ j] *xl*xl*xl*xl/(1.0+fd[i] [ j] *xl*xl*xl*xl) ) ; 
} 
> 

/•a********************************************************* 
This  function  finds  the  intersection  of  a  plotted  curve 
with  the  top  border  and  "clips"  it  to  keep  everything 
within  the  borders  of  the  graph. 

a***********************************************************/ 

void  clip(x,y) 
float  *x, *y; 
{ 

int  flag«0; 

int  k; 

float  xl,  x2,  yl,  y2,  xxmax; 

/*  test  for  extreme  >  400  kips  */ 

for  (k-0;  k<121;  k++) 

{ 

if  (y[k]O400.0) 

{ 

xl-x[k] ; 

yl-y[k]; 

) 

else  if  (!flag  &&  y[k]>400.0) 

{ 
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x2-x(k] ; 
y2-y(k]; 
flag-1; 

/*  interpolate  to  find  xxmax  */ 
xxmax-xl+(x2-xl) / <y2-yl) * (400.0  -  yl); 

/*  set  next  plotting  point  to  intersection  of  curve  with  bordei  */' 

y[k]-400.0; 

x [k] -xxmax; 

} 
elae 

{ 

y[k]-400.0; 

) 
I 

} 

/A********************************************************** 
This  function  pauses  until  the  user  hits  a  key,  then 
closes  the  graphics  environment . 

a***********************************************************/ 

void  wait_plt() 
{ 

union  inkey  { 
char  ch [2 ] ; 
int  i; 
}  c; 

while  (1) 
{ 

c.i  -  bioskey(O);         /*  read  the  key  */ 

if  (c.ch[0])  /*  key  is  a  normal  key  */ 

break; 
else  /*  key  is  a  special  key  */ 

break; 

} 

endplt();  /*  close  graphics      *  / 

) 
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/•••••••a******************************************************************** 
File:  pull.c 
Author:  Todd  J.  Peltzer 
Last  update:  24  April  198  9 

This  file  contains  the  functions  which  evaluate  a  tug's  ability  to  tow 
a  given  vessel  at  a  specified  speed. 

Functions : 
tugpull  () 
show_tugpull ( ) 
f ind_avail () 
get_tugpull_opt ( ) 
tugpull_scrn ( ) 
tugpull_data ( ) 

♦include  "stdio.h" 
♦include  "keydef.h" 
♦include  "video. h" 

void  tugpull ( ) , show_tugpull ( ) , tugpull_scrn ( ) , tugpull_data ( ) ; 
float  f ind_avail () ; 

extern  char  tug[15];  /*  tug  class  */ 

extern  char  hull_no[24];  /*  hull  number  entered  by  user  */ 

extern  float  tug_data[5];  /*  array  to  store  tug  data  */ 

extern  float  tow_data (5] ;  /*  array  to  store  tow  data  */ 

extern  float  ship_data [6] ;  /*  array  to  store  Table  G-2  data  */ 

extern  float  dock_data [7] ;  /*  array  to  store  drydock  data  */ 

extern  float  barge_data [8] ;  /*  array  to  store  barge  data  */ 

extern  float  tug_eval [ 7 ] ;  /*  tug  evaluation  results  */ 

static  int  startrow=2; 

static  int  startcol=20; 

static  int  endrow=22; 

static  int  endcol=60; 

static  char  *menu[]  = 
{ 

"1)  Use  best  possible  speed  ", 

"2)  Use  original  tow  speed   ", 

"3)  Show  graph  ", 

"4)  Return  to  PROGRAM  OPTIONS" 

}; 

static  char  *labell[]  ■ 
{ 

"TUG  EVALUATION", 

"Tug:", 

"Tow:", 

"Desired  tow  speed:", 

"Mean  tension:", 

"Available  tension:", 

"Best  tow  speed:", 
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'Pleaae  wait' 


)t 


^*«»»»»*»«»>li»t»»ttt»»»»k»llllt«t»»»*ll»»»»»llt«»»»*»tlil>»tli>t»»li>IM>l»>>>»Mt 

Thia  function  compar«i  the  mean  bowline  tOflOiOfl  wiM.  |  li«  tvailal 
towline  tenaion  for  the  given  tug  at  the  apecified  tow  apaa'J.  1/  thOtf 
ia  inaufficiant  tanaion  avaiiabla,  tha  tow  apeed  i>  t«'lu':*'l  nut  11 
available  tenaion  exceeda  tha  mean  t.owlina  tanaion. 

ft**********************************************************************.*)./ 

void  tugpull (typa, tanaion) 
int  type; 
float  "tenaion; 

{ 


/*  type  of  towi  ahip,  dook,  01  b4M*f/0  */ 

/*  mean  tow  line  tenaion  */ 


FILE  *in; 

int  flag-0; 

int  i,  j; 

int  tugtype; 

char  inline  [81 J  ; 

char  textl [37] , text2[37] ; 

char  at ring [25] ; 

float  array  [  *S  ]  ; 

float  atatua, nbr; 

float  apeed[20J ; 

float  avail [4] [20] ; 

float  avail_ten; 

float  old_avail; 

float  vtow_avail; 

float  beat  avail; 

float  old_mean; 

float  vtow; 

float  mean  -  'tenaion; 

float  beat_mean; 

float  beetapd; 

float  ree_dat[5); 

float  tow_ree, haw_ree; 

int  choice; 

int  start, hilite-0; 


/*  pointer  to  input  file 

/*  atatua  flag 

/*  countera 

/ *  | ype  of  tug 

/*  string  for  getting  LnpUl 

/*  error  meaaage  text  /»'  ;  I  n'fn 

I  *  '  e  xt  a  t  r  I  1 1 1 ) 

/  *  Input,  .-lata  mi  in/ 

/*  reguired  argumenta  for  atofa() 

/*  array  of  tow  apeede 

/*  array  of  available  tensions 

/*  return   traits*  of   Kind  avail  () 

/*  value  used  in  iteration  iObOfM 

/  *  available  tension  at  /tow 

/*  available  tension  B1   beat  speed 

/  *  value  used   in   i  >  •>  /  i '  ion  i'  Micm 

/*  »/,k  speed 

/*  tension    at    OrlO/lflOJ     tO*J    speed 

/*  tOflOiOfl    at    best     speed 

/*  beat    poaaible    apee'l 

/*  reguired    i ' 'j  ■     COl     shipr es let ( ) 

/*  tow,  hawaer  resistance 

/*  popup    menu    aeje<»  Lofl 


»/ 
*/ 
*/ 
*/ 
»/ 
»/ 

V 

*/ 
*/ 
*/ 
»/ 
»/ 
*/ 

V 

»/ 
*/ 
*/ 
»/ 
*/ 
»/ 
»/ 
»/ 
»/ 


InetfoponCtufpu]  j    -iat",  "r")  ; 

•/tow-tug_eval  (0]-tow_data  [1] ; 
tug_eval[l]  -  "tenaion; 

/  *  draw  acreen,  labela,  preliminary  -!>>>»     *  / 
t   ^gpull  ecrn  |  vtow, mean) ; 

/*  read  available  tow  tenaion  dot!  fVOO  file  */ 

fgeta (inline, 81, in) ; 
f gets (inline, 81, in) ; 
for  (i-0;  i'20;  i++) 
( 

fgeta (inline,  81,  in)  ; 

atatua  -  atof a ( inline, array, tnbr,  5) ; 

apeed[i] -array (0)  ; 


for  (j=0;  j<4;  j++) 
{ 

avail [j] [i]=array [ j+1] ; 
} 
> 

/*  find  available  tow  tension  for  given  tow  speed  */ 

tugtype=tug_data [0] ; 

avail_ten=f ind_avail (tugtype, vtow, speed, avail) ; 

vtow_avail=tug_eval [2]=avail_ten; 

if  (avail_ten  <  0.0) 

{ 

sprintf (textl, "Tow  speed  outside  the  limits  of"); 

sprintf (text 1, "Figure  6-1"); 

display_error (ERROR, textl, text2) ; 

get_options (1) ; 

return; 
} 

/*  write  available  tension  */ 
start=startcol+3+strlen(labell [3] )+5; 
sprintf (string, "%6 . Of", avail_ten) ; 
write_string(startrow+9, start, string, REV_VID) ; 

/*  compare  mean  tension  to  available  tension  */ 

i=0; 

old_avail=avail_ten; 

old_mean  =  *tension; 

while (1) 

{ 

best_spd=tow_data [ 1 ] =speed [ i ] ; 

if  (type==SHIP) 

{ 

ship_resist (tow_data, ship_data, res_dat, &tow_res) ; 
hawser_resist (tug_data, tow_data [1] , tow_res, &haw_res) 
* tens ion  =  tow_res+haw_res; 
I 

else  if  (type==D0CK) 
{ 

dock_resist (tug_data, dock_data, tow_data, tension) ; 
} 
else  /*  type»=BARGE  */ 

{ 

barge_resist (tug_data, barge_data, tow_data, tension) ; 
} 

avail_ten=f ind_avail (tugtype, best_spd,  speed,  avail) ; 

if  (avail_ten  <  0.0) 
{ 

sprintf (textl, "Tow  speed  outside  the  limits  of"); 

sprintf (t ext2 , "Figure  6-1 ") ; 

display_error (ERROR, textl, text2) ; 
} 
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else  if  (avail_ten  <  'tension) 
( 

best_spd-speed [ i-1] ; 

beet_avail-avail_ten-old_avail; 

best_mean  -  * tens ion  ■  old_mean; 

break; 

) 
else 

{ 

old_avail-avail_ten; 
old_mean— * ten si on; 
i++; 

) 


) 


/*  erase  wait  message  */ 

clear (startrow+15 , startcol+12, startrow+17, startcol+27, REV_VID) 

/*  write  best  possible  speed  */ 
start-startcol+3+strlen (labell f 3] ) +5; 
sprintf (string,  "%6 . If ", best_spd) ; 
write_string(startrow+ll#  start, string, REV_VID) ; 

/*  write  mean  tension  */ 

sprintf (string, "%6. Of ", "tension) ; 

write_string(startrow+12, start, string, REV_VID) ; 

/*  write  available  tension  */ 
sprintf (string, "%6. Of ", best_avail) ; 
write_string(startrow+13, start, string, REV_VID) ; 

/*  write  units  */ 

start-endcol-5; 

sprintf (string, "kts") ; 

write_string (startrow+11, start, string, REV_VID) ; 

sprintf (string, "lbs") ; 

write_string(startrow+12, start, string, REV_VID) ; 

write_string(startrow+13, start, string, REV_VID) ; 

/*  save  results  */ 
tug_eval (3] -best_spd; 
tug_eval (4] -be»t_mean; 
tug_eval [ 5] "best  avail; 

/*  display  options,  get  response  */ 

while  (1) 

( 

choice-get_tugpull_opt (hilite) ; 

if  (choice--0)  /*  use  best  possible  speed  */ 

{ 

tow_data [ 1 ] -beat_spd; 

* tens ion-be st_mean; 

tug  eval[6]-0; 


287 


hilite-2; 
flag-1; 

sprintf (textl, "Best  possible  tow  speed  set"); 
display_error (BLANK, text 1, "  ") ; 
cursor_of f ( ) / 
continue/ 
} 

else  if  (choice==l)    /*  use  original  tow  speed  */ 
{ 

if  (vtow_avail<mean)        /*  can't  make  desired  speed  */ 
{ 

sprintf (textl, "Tug  has  inadequate  pull  at  this  speed"); 

sprintf (text2, "==>  choose  best  speed  option  <=="); 

display_error (ERROR, textl, text2) ; 

hilite=0; 

f lag=0; 

cursor_of f ()  ; 

continue; 
> 

tow_data [ 1 ] =vtow; 
*tension=mean; 
tug_eval [6]»1; 
hilite-2; 
flag=l; 

sprintf (textl, "Original  tow  speed  set"); 
display_error (BLANK, textl, "  "); 
cursor_of f ( ) ; 
} 

else  if  (choice=»2)    /*  show  graph  */ 
{ 

if  (!flag)  /*  speed  not  chosen  */ 

{ 

sprintf (textl, "Tow  speed  has  not  been  selected"); 

sprintf (text2, "==>  please  choose  a  tow  speed  <=="); 

display_error (ERROR, textl, text2) ; 

hilite=0; 

cursor_of f () ; 

continue; 
) 

show_tugpull (speed, avail, vtow, best_spd, vtow_avail, best_avail) 
hilit«-3; 
cursor_of f ( ) ; 
tugpull_scrn (vtow, mean) ; 

tugpull_data (vtow_avail, best_spd, best_mean,  best_avail) ; 
continue; 
} 

else  if  (choice==3  | |  choice<0) 
{ 

if  ( ! f lag)  /*  speed  not  chosen  */ 

( 

sprintf (textl, "Tow  speed  has  not  been  selected"); 

sprintf  (text2,  "»>  please  choose  a  tow  speed  <»*"); 

display_error (ERROR, textl,  text2)  ; 

hilite»0; 
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cursor_of f ( | 
continue; 
} 

break; 
} 
} 

cursor_of f ( ) ; 
return; 


This  function  finds  the  available  tension  from  the  given  tug  at  the 
given  speed. 

float  f ind_avail (tug, vtow, speed,  avail) 

int  tug; 

float  vtow; 

float  *speed; 

float  avail [] [20] ; 

{ 

int  i; 

float  avail_ten; 

float  delx, fac; 

for  (i=0;  i<20;  i++) 
{ 

if  (vtow==speed [i] ) 
{ 

avail_ten=avail [tug] [i] ; 
return  avail_ten; 
} 
else  if  (vtow<speed [i] ) 

continue; 
else  if  (vtow>speed [i]  &&  vtow<speed [ i+1] ) 
( 

delx»speed[i+l]  -  speed [i]; 
f ac= (vtow-speed [i] ) /delx; 

avail_ten» (avail [tug] [i+1] -avail [tug] [i] ) *f ac+avail [tug] [i] ; 
return  avail_ten; 
} 
} 

return  -1.0; 
> 

This  function  displays  the  options  available  and  returns  the  user' s 
choice . 

A*************************************************************************/ 

get_tugpull_opt (hilite) 

int  hilite; 

( 

int  choice, start; 

/*  write  options  menu  */ 
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start= (endcol-startcol-strlen (menu [0] )  ) /2  +  started; 

choice-popup (menu, "1234", 4, startrow+14, start-2, NONE, REV_VID, hilite) 

return  choice; 


) 


/a************************************************************************ 

This  function  displays  a  reproduction  of  Figure  6-1  in  the  Towing 
Manual,  showing  available  tension  versus  tow  speed  for  each  class 
of  tug  used  in  this  program  (ATF  is  not  used) ; 

void  show_tugpull (speed, avail, vtow, best_spd, vtow_avail, best_avail) 

float  *speed; 

float  avail [] [20]  ; 

float  vtow, best_spd; 

float  vtow_avail, best_avail; 

{ 


int  j , k ; 

float  x[101],y[101] ; 

float  xl,yl,x2,y2; 

char  labx [ 25 ], laby [25] ; 

short  kd=2; 

short  npts; 

short  ntx=2,nty=2; 

short  itype; 

short  nsym; 

float  x0i=1.0764; 

float  y0i=1.0; 

float  xli=6.624; 

float  yli=4.35; 

float  xmn=0.0; 

float  xmx=16.0; 

float  xtc=2.0; 

float  ymn=0.0; 

float  ymx=200.0; 

float  ytc=25.0; 

float  xxmax; 

float  xsm, ysm; 


/*  dummy  counter  */ 

/*  arrays  to  hold  x,  y  coordinates  */ 

/*  coordinates  for  drawing  lines  */ 

/*  strings  for  x,  y  axis  labels  */ 

/*  graph  "kode"  */ 

/*  number  of  points  to  plot  */ 

/*  skip  factor  for  axis  numbers  */ 

/*  designates  x  or  y  axis  label  in  label ()  */ 

/*  symbol  code  */ 

/*  screen  parameters  */ 

/*     "        "       */ 

/*        M  H  */ 

/*        "  "  */ 

/*  min  x  value  */ 
/*  max  x  value  */ 


/' 


axis  tic  value  */ 


/*  min  y  value  */ 

/*  max  y  value  */ 

/*  y  axis  tic  value  */ 

/*  smallest  x, y  in  world  coordinates  */ 


xsm  =  xmn  -  (xOi/xli) * (xmx-xmn) ; 
ysm  =  ymn  -  (yOi/yli) * (ymx-ymn) ; 


setplt();  / 

locate (&x0i, &y0i, &xli, &yli)  ;         / 
xyaxis (&xmn, &xmx, &xtc, &ymn, Symx, 

&ytc, (xmn, &ymn, &kd) ;  / 

axnum(&ntx, Snty)  ;  / 

itype=l; 

sprintf (labx, "Tow  Speed  (kts)_"); 
label (fiitype, labx) ; 
itype=2; 

sprintf (laby, "Available  Tension  (kips) 
label (fiitype, laby)  ; 


initialize  graphics  */ 
set  position  on  screen 

draw  axes  */ 

write  axis  numbers  */ 


/*  write  x-axis  label  */ 


_"); 

/*  write  y-axis  label  */ 
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npts«21; 

for  (k-0;  k<4 ;  k++) 

{ 

for  (j-0;  j<20;  j++) 


x[ j] -speed [ j] ; 

y[ j]~avail[k]  [j]/1000.0; 


} 

line3 (6npts, x,  y)  ; 


) 


/*  draw  line  thru  pts  */ 


xl=  speed [4] ; 

yl=  avail[3] [4J/1000. 0+5.0; 
sprintf (labx, "T-ATF  166_"); 
labely(&xl, 6yl, labx) ; 


/*  write  labels  */ 


xl=  speed [2] ; 

yl=  avail[l]  [2]/1000. 0-20.0; 
sprintf (labx, "ARS  50_") ; 
labely(6xl, 6yl, labx) ; 

xl"  speed [12] ; 

yl-  avail[2] [12J/1000. 0+5.0; 
sprintf (labx, "ATS  1_" ) ; 
labely (6x1, 6yl, labx) ; 

xl=  speed [2] ; 

yl=  avail[0] [2] /1000 . 0+5 . 0; 
sprintf (labx, "ARS  38_") ; 
labely (6x1, 6yl, labx)  ; 

/*  plot  symbols  */ 

npts=l; 

xl=  vtow; 

yl=  vtow_avail/1000 .0; 

nsym=4; 

symplt (Snpts, 6x1, 6yl,  6nsym)  ; 

xl«  3.0; 

yl=  ysm+2.5; 

symplt (6npts, 6x1, 6yl, 6nsym) ; 

xl=  best_spd; 

yl=  best_avail/1000.0; 

nsym=2; 

symplt (6npts, 6x1, 6yl, 6nsym) ; 

xl«  10.0; 

yl™  ysm+2 . 5 ; 

symplt (6npts, 6x1, 6yl, 6nsym) ; 

/*  write  labels  */ 

xl=  4.0; 

yl=  ysm; 

sprintf (labx, "Desired  Speed") 

labely(6xl, 6yl, labx) ; 

xl-  11.0; 
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yl=  ysm; 

sprintf (labx, "Best  Speed" ) ; 

labely(&xl, &yl, labx) ; 

/*  wait  for  keystroke,  then  exit  */ 
wait_ pit  () ; 

} 

This  function  creates  the  tug  evaluation  display. 
******************************************************•*******************/ 

void  tugpull_scrn (vtow, tension) 

float  vtow, tension; 

{ 

int  i, start; 

char  string [25]; 

draw_window  (start row,  started,  endrow,  endcol,  DOUBLE,  REV_VID)  ; 

/*  write  header  */ 

write_header (startrow, startcol, endcol, labell [0] , REV_VID) ; 

/*  write  labels  */ 
for  (i-1;  i<6;  i++) 

write_string(startrow+4+i, startcol+3, labell [i] , REV_VID) ; 

/*  draw  dividing  line  */ 

for  (i=0;  i< (endcol-startcol-5) ;  i++) 

write_char (startrow+10, startcol+3+i, 196,REV_VID) ; 

/*  write  remaining  labels  */ 

write_string(startrow+ll, startcol+3, labell [6] , REV_VID) ; 
write_string(startrow+12, startcol+3, labell [4] , REV_VID) ; 
write_string(startrow+13, startcol+3, labell [5] ,REV_VID) ; 

/*  write  tug  and  tow  */ 
start=startcol+3+strlen (labell [1] )+2; 
write_string(startrow+5, start, tug, REV_VID) ; 
write_string(startrow+6, start, hull_no, REV_VID) ; 

/*  write  desired  tow  speed,  mean  tension  */ 
start»startcol+3+strlen (labell [3] )+5; 
sprintf (string, "%6. If", vtow) ; 

write_string(startrow+7, start, string, REV_VID) ; 
sprintf (string, "%6.0f ", tension) ; 
write_string(startrow+8, start, string, REV_VID) ; 

/*  write  units  */ 

start— endcol- 5; 

sprintf (string,  "kts") ; 

write_string(startrow+7, start, string, REV_VID) ; 

sprintf (string, "lbs") ; 

write  string (startrow+8, start, string, REV_VID) ; 
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write_string(startrow+9, start, string, REVVID) ; 

/*  write  wait  message  */ 

draw_window (startrow+15, startcol+12, startrow+17, startcol+27, 

SINGLE, REV_VID) ; 
sprintf (string, "Please  wait") ; 

start  -  (endcol-startcol-strlen  (string)  ) /2  +  started; 
write_string(startrow+16, start, string, BLINK_REV_VID)  ; 
return; 


> 


This  function  writes  the  results  of  the  tug  evaluation  on  the  screen. 

ft*************************************************************************/ 

void  tugpull_data (vtow_avail, best_spd, bestmean, bestavail) 

float  vtow_avail; 

float  best_spd; 

float  best_mean; 

float  beat_avail; 

( 

int  start; 

char  string[25]; 

/*  erase  wait  message  */ 

clear (startrow+15, startcol+12, startrow+17, startcol+27 , REV_VID) ; 

/*  write  available  tension  */ 
start-start col+3+strlen (labell [3] )+5; 
sprintf (string, "%6 . Of ", vtow_avail) ; 
write_string (startrow+9, start, string, REV_VID) ; 

/*  write  best  possible  speed  */ 
start-startcol+3+strlen (labell [3] ) +5; 
sprintf (string, "%6. If ", best_spd) ; 
write_string (startrow+11, start, string, PEV_VID) ; 

/*  write  mean  tension  */ 

sprintf (string, "%6 . Of", best_mean) ; 

write_string(startrow+12, start, string, REV_VID) ; 

/*  write  available  tension  */ 
sprintf (string, "%6 . Of " , best_avail) ; 
write_string(startrow+13, start, string, REVJ/ID) ; 

/*  write  units  */ 
start-endcol-5; 
sprintf (string, "kts")  ; 

write_string(startrow+ll, start, string,  PEV_VID) ; 
sprintf (string, "lbs") ; 

write_string(startrow+12, start, string, REV_7ID) ; 
write_string(startrow+13, start, string, PEV_VID) ; 
return; 


293 


File:  rp.c 

Author:  Todd  J.  Peltzer 

Last  update:  19  April  1989 

This  file  contains  the  functions  which  generate  a  report  and  send 
it  to  the  printer 

Functions : 
report ( ) 

♦include  "stdio.h" 
♦include  "dos.h" 
♦include  "string. h" 
♦include  "video. h" 

void  report () ; 

static  char  *tabtow(]  ■ 
{ 

"YRBM", 

"FFG  1", 

"DD  963", 

"AE  26", 

"LHA  1", 

"CVN  65" 


); 


extern  char  tug [15]; 
extern  char  hull_no [24] ; 
extern  char  class  [24]; 
extern  float  tug  data [5]; 
extern  float  tow_data [ 5 ] ; 
extern  float  ship_data [6] ; 
extern  float  dock_data [ 7] ; 
extern  float  barge_data [8 ] ; 
extern  float  tension; 
extern  float  extr_ten; 
extern  int  curve; 
extern  int  flag [3]; 
extern  int  type; 
extern  float  barge_rea ( 6]  ; 
extern  float  resist  dat[5]; 
extern  float  ext_data [ 10] ; 
extern  float  spd_data [3 ] ( 4 ] ; 
extern  float  lgth_data[3] [4] 
extern  float  tug_eval[7]; 


/*  tug  class 

/*  hull  number  entered  by  user 


/* 
/* 
/* 
/* 
/* 
/* 


class  of  ship  from  Table  G-2 
array  to  store  tug  data 
array  to  store  tow  data 
array  to  store  Table  G-2  data 
array  to  store  drydock  data 
array  to  store  barge  data 
/*  mean  towline  tension 
/*  extreme  towline  tension 
/*  curve  number  from  extreme 
/*  error  checking  flag  array 
/*  tow  type 
/*  computed  barge  parameters 

/*  resistance  data 
/*  extreme  tension  results 
/*  tow  speed  effects  results 
/*  hawser  length  effects  results 


*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
V 
V 

*/ 
*/ 
•/ 


static  char  *menu[]  - 

I 

"1)  Send  report  to  printer  ", 
"2)  Send  report  to  file  only  ", 
"3)  Return  to  PROGRAM  OPTIONS" 

); 
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This  function  generates  the  report,  and  sends  it  to  the  printer 
if  the  user  has  indicated  that  choice. 

A*********************************************************************/ 

void  report () 
{ 

char  inline [81] , outline [81] , text [40] ; 

char  textl [39] , text2[39] ; 

char  mssg(9][81]; 

int  start, end, i, j , choice, prnt—0; 

float  tow_res, haw_res; 

float  xl,x2,x3; 

FILE  *in, *out; 

int  startrow-2; 

int  startcol-20; 

int  endrow—22; 

int  endcol=60; 

clear (startrow+1, startcol+1, endrow-1, endcol-1, REV_VID) ; 

sprintf (text, "TOW  REPORT" ) ; 

write_header (star trow, a tart col, endcol, text, REV_VID) ; 

start  ™  (endcol-startcol-strlen (menu [0 ) ) ) /2  +  startcol; 
choice-popup (menu, "123", 3, startrow+6, start-2, NONE, REV_VID, 0) ; 

if  (choice-—0)  /*  send  report  to  printer  */ 

prnt-1; 
else  if  (choice««-l)    /*  send  report  to  file  only  */ 

prnt-0; 
else  if  (choice--2  | |  choice<0)   /*  QUIT  or  escape  key  pressed  */ 
( 

cursor  off ( ) ; 

get_options (4 ) ; 

return; 
} 

/*  open  input  and  output  files  */ 
in-fopen ( "report . in", "r") ; 
out-f open ("report .out", "w") ; 

/*  check  for  null  pointer  */ 

if  (lout) 

{ 

sprintf (textl, "Can' t  open  file  REPORT. OUT !") ; 

sprintf (text2, "-->  exit,  see  if  hard  disk  is  full  <--"); 

display_error (ERROR, textl, text2) ; 

f close (in) ; 

cursor_of f ( ) ; 

get_options (4) ; 

return; 
I 

/*  print  status  message  */ 
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sprintf (text, " .  .  .  Writing  Report  .  .  ."); 

start  ■  (endcol-startcol-strlen (text) ) /2  +  started; 

write_string (startrow+8, start, text, REV_VID) ; 

sprintf (text , "Please  Wait"); 

start  «■  (endcol-startcol-strlen  (text)  ) /2  +  started; 

write_string(startrow+10, start, text , BLINK_REV_VID) ; 

/*  read  messages  */ 
for  (i=0;  i<9;  i++) 
{ 

fgets (mssg [i] , 81, in)  ; 

striper (mssg[i] ) ; 
} 

/*  print  report  header  */ 
for  (i=0;  i<3;  i++) 

( 

fgets (inline, 81, in) ; 
fprintf  (out, "%s", inline) ; 

) 

fprintf (out, "\n") ; 

fprintf (out, "\n") ; 

/♦a*******************************************/ 

/*  print  Section  I  */ 

/•a*******************************************/ 

/*  print  header  */ 
for  (i=0;  i<2;  i++) 
{ 

fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ; 

) 

fprintf (out, "\n") ; 
fprintf (out, "\n") ; 

/*  print  tug  class  */ 
fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 1) ; 
strcat (inline, tug) ; 
fprintf (out, "%s\n", inline)  ; 
fprintf (out, "\n") ; 

/*  print  hawser  data  */ 

fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline,  3) ; 

sprintf (text,  "%6.2f  in" , tug_data [ 1] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  diameter  */ 
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fgets (inline, 81, in) ; 

striper  (inline) ; 

pad (inline, 6) ; 

sprintf (text, "%6.0f  ft" , tug_data [2] ) ; 

atrcat (inline, text) ; 

fprintf  (out, "%s\n", inline) ;  /*  scope  */ 

fprintf (out, "\n") ; 

/*  print  chain  pendant  data  */ 

fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 7) ; 

sprintf (text, "%6.2f  in" , tug_data [3] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  size  */ 

fgets (inline, 81, in) ; 

striper  (inline) ; 

pad (inline, 6) ; 

sprintf (text, "%6.0f  ft", tug_data [4] ) ; 

strcat ( inline , text) ; 

fprintf (out, "%s\n", inline) ;  /*  scope  */ 

fprintf (out, "\n") ; 

fprintf  (out, "\n") ; 

/a********************************************/ 

/*  print  Section  II  */ 

/a********************************************/ 

if  (type==0)     /*  SHIP  */ 

/*  print  header  */ 
for  (i=0;  i<2;  i++) 
( 

fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ; 
) 

fprintf (out, "\n") ; 
fprintf (out, "\n") ; 

/*  print  tow  type  */ 
fgets (inline, 81, in) ; 
fprintf (out, "%s", inline) ; 
fprintf (out, "\n") ; 

/*  print  input  data  */ 

fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 
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striper (inline) ; 

pad (inline, 1) ; 

strcat (inline, hull_no) ; 

fprintf (out, "%s\n", inline) ; 


/*  hull  number  */ 


fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 11) ; 

sprintf (text, "%6.0f  tons" , tow_data (0] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  full  load  displacement  */ 

f gets (inline, 81 , in) ; 

striper (inline) ; 

pad (inline, 23) ; 

sprintf (text, "%6.1f  kts", tow_data [ 1] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  tow  speed  */ 

fgets (inline,  81,  in) ; 

striper (inline) ; 

pad (inline,  5)  ; 

sprintf (text , " % 6 . If  kts " , tow_data ( 2 ] ) ; 

strcat (inline,  text)  ; 

fprintf (out, "%s\n", inline) ;  /*  max  wind  speed  */ 


fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 9) ; 

sprintf (text, "%6. If  deg", tow_data [3] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /* 


rel  wind  direction  */ 


fgets (inline,  81,  in)  ; 
striper (inline) ; 
pad (inline, 14) ; 
if  (tow_data[4]==0.0) 

sprintf (text, "Locked"); 
else  if  (tow_data[4]«1.0) 

sprintf (text, "Trailing") ; 
else  if  (tow_data[4]=-2.0) 

sprintf (text, "Removed") ; 
strcat (inline, text) ; 
fprintf (out, "%s\n", inline) ; 
fprintf (out, "\n") ; 


/*  propeller  status  */ 


/*  print  Table  G-2  data  */ 
fgets (inline, 81, in) ; 
fprintf (out, "%s", inline) ; 


/*  header  */ 


fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 1) ; 
strcat (inline, class) ; 


298 


fprintf (out, "%s\n", inline) ;  /*  ship  class  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline,  10)  ; 

sprintf (text, "%6.0f  tons", ship_data[0]  )  ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  displacement  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 20) ; 

sprintf (text, "% 6. Of  sq  ft", ship_data [ 1] )  ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  frontal  area  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline,  16)  ; 

sprintf (text, "%6.2f ", ship_data[2] )  ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  wind  coefficient  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 18)  ; 

sprintf (text,  "% 6. Of  sq  ft ", ship_data [3]  )  ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  propeller  area  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad ( inl ine  ,11); 

sprintf (text, "%6.0f ", ship_data[4]  )  ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  hull  resistance  curve  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline,  11)  ; 

sprintf (text, "%6.0f", ship_data[5]  )  ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  wave  resistance  curve  */ 

fprintf (out, "\n") ; 

fprintf (out, "\n") ; 

/*  read  and  discard  remaining  Section  II  data  */ 
for  (i=0;  i<46;  i++) 
fgets (inline,  81,  in)  ; 
> 

else  if  (type«l)     /*  DRYDOCK  */ 

/*  read  and  discard  Section  II  data  for  type  SHIP  */ 
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for  (i»0;  i<18;  i++) 
fgets (inline, 81, in) ; 

/*  print  header  */ 
for  (i=0;  i<2;  i++) 
{ 

fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ; 
J 

fprintf (out, "\n") ; 
fprintf (out, "\n") ; 

/*  print  tow  type  */ 
fgets (inline, 81, in) ; 
fprintf (out, "%s", inline) ; 
fprintf (out, "\n") ; 


/*  print  input  data  */ 
fgets (inline, 81, in) ; 
fprintf (out, "%s", inline) ; 


/*  header  */ 


fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 1) ; 

strcat (inline, hull_no) ; 

fprintf (out, "%s\n", inline) ; 


/*  hull  number  */ 


fgets (inline, 81, in) ; 

striper (inline) / 

pad (inline, 18) ; 

sprintf (text, "%6. If", tow_data [4] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ; 


/*  hull  condition  */ 


fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 23) ; 

sprintf (text, "%6.1f  kts", tow_data [1 ] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  tow  speed  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 5) ; 

sprintf (text, "%6. If  kts", tow_data [2] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  wind  speed  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 9) ; 

sprintf (text, "%6.1f  deg", tow_data [3] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  wind  direction  */ 
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fprintf (out, "\n") ; 

/*  print  estimated  displacement  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 13) ; 

sprint f (text, "%6.0f  tons" , tow_data [0] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ; 

fprintf (out, "\n")  ; 

/*  print  Table  G-4  data  */ 

fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) / 

striper (inline) ; 

pad (inline,  30)  ; 

sprintf (text, "%6.2f ", dock_data ( 1] )  ; 

strcat ( inline , text) ; 

fprintf (out, "%s\n", inline) ;  /*  fl  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline,  30)  ; 

sprintf (text, "%6.2f", dock_data[2] )  ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline);  /*  f2  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 30) ; 

sprintf (text, "%6.2f ", dock_data[3] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline);  /*  f3  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 13) ; 

sprintf (text, "%6. Of  sq  ft", dock_data[4] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  wetted  surface  area  */ 

/*  print  cross  sectional  areas  */ 

fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 15) ; 

sprintf (text, "%6. Of  sq  ft", dock_data [5] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  below  waterline  */ 
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fgeta (inline, 81,  In) ; 

•tripcr (inline) ; 

pad(inline,  15)  ; 

aprintf  (text,  "1>6  .  Of  ",  dook_data  [  6]  )  ; 

atrcat (inline, text) / 

fprintf  (out,  "%a\n",  inline)  ;  /-    /ibove  wiUtllm  »/ 

fprintf (out, "\n") ; 

fprintf (out, "\n")  ; 

/*  read  and  discard  remaining  Section  I  J  data  */ 
for  (i-0;  i<28;  i++) 
fgeta (inline, 81, in) ; 


) 


else  if  (type— 2)     /*  BAPGE  */ 

/*  read  and  diacard  Section  II  data  for  type  HHIP,  OP'fUW.y    -/ 
for  (i-0;  t<3«;  i++) 
fgeta (inline, 81, in) ; 

/*  print  header  */ 
for  (i-0;  i<2;  i  +  +  ) 
I 

fgeta (inline, 81, in) ; 

fprintf (out, "%a", inline) ; 

) 

fprintf (out, "\n") ; 

fprintf (out, "\n") ; 

/*  print  tow  type  */ 
fgeta (inline, 81, in) ; 
fprintf (out, "*m",  inline) ; 
fprintf (out, "\n") ; 

/*  print  input  data  */ 

fgeta (inline, 81, in) ; 

fprintf  (out, "%■", inline) ;  /*  header  */ 

fgeta (inline, 81, in) ; 

atripcr (inline) ; 

pad  (inline, 1) ; 

atrcat (inline, hull_no) ; 

fprintf  (out,  "%a\n",  inline)  ;  /  *    hull     RUfldMI     */ 

/*  print  hull  dimenaiona  */ 

fgeta (inline, 81, in) ; 

fprintf  (out,  "'+.*",  inline)  ;  /*  hmmdmi     -/ 

fgeta (inline, 81, in) ; 

atripcr (inline) ; 

pad (inline, 24) ; 

aprintf  (text,  "\f>.  If  f  t"  ,  barge_data  [0]  )  ; 

atrcat ( inline, t»/' | . 

fprintf (out, "%s\n", inline) ;  /*  length  *  / 


:',/ 


fgets (inline, 81, in) ; 

striper  (inline) ; 

pad (inline, 26) ; 

sprintf (text, "%6.1f  ft" , barge_data [ 1] )  ; 

strcat (inline, text) ; 

fprintf (out, "%3\n", inline) /  /*  beam  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 25) ; 

sprintf (text,  "%6. If  ft" , barge_data [2] )  ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  depth  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 25) ; 

sprintf (text, "%6.1f  ft",barge_data [3] ) ; 

strcat ( inline , text) ; 

fprintf (out, "%s\n", inline) ;  /*  draft  */ 

/*  print  deckhouse  dimensions  */ 

fgets (inline, 81,  in)  ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 24 ) ; 

sprintf (text, "%6.1f  f t" , barge_data [ 4] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline);  /*  length  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 25) ; 

sprintf (text, "%6.1f  ft",barge_data [5] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline);         /*  width  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 24 ) ; 

sprintf (text, "%6.1f  ft",barge_data [6] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  height  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 16) ; 

if  (barge_data[7]«0.0) 

sprintf (text, "Rake  ended"); 
else  if  (barge_data[7]« 1.0) 

sprintf (text, "Ship  ended") ; 
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else  if  (barge_data [7]==2 .0) 

sprintf (text, "Square  ended") ; 
strcat (inline, text) ; 
fprintf (out, "%s\n", inline) ;  /*  end  jhape  */ 

fgets (inline, 81, in) ; 

striper  (inline) ; 

pad (inline, 18) ; 

sprintf (text, "%6. If ", tow_data [4] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  hull  condition  */ 

fgets (inline, 81, in) ; 

striper  (inline) ; 

pad (inline, 23) ; 

sprintf (text, "%6. If  kts", tow_data [1] ) ; 

strcat ( inline , text) ; 

fprintf (out, "%s\n", inline) ;  /*  tow  speed  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 5) ; 

sprintf (text, "%6.1f  kts", tow_data [2] ) ; 

strcat (inline, text) ; 

fprintf  (out , "%s\n", inline) ;  /*  wind  speed  */ 

fgets (inline, 81 , in) ; 

striper (inline) ; 

pad (inline, 9) ; 

sprintf (text, "%6. If  deg", tow_data [3] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  wind  direction  */ 

fprintf (out, "\n") ; 

/*  print  estimated  displacement  */ 

fgets (inline, 81 , in) ; 

striper (inline) ; 

pad (inline, 13) ; 

sprintf (text, "%6.0f  tons" , tow_data [0] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ; 

fprintf (out, "\n") ; 

/*  print  data  corresponding  to  Table  G-4  */ 

fgets (inline, 81, in) ; 

fprintf  (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 

striper  (inline) ; 

pad (inline, 30) ; 

sprintf (text, "%6 . 2f ", barge_res [0] )  ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  fl  */ 
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fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 30) ; 

sprintf (text, "%6. 2f ", barge_res ( 1] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  f2  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 30) ; 

sprintf (text, "%6.2f ", barge_res [2] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  f3  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 13) ; 

sprintf (text, "%6. Of  sq  ft", barge_res [3] ) ; 

strcat (inline, text) ; 

fprintf (out , "%s\n", inline) ;  /*  wetted  surface  area  */ 

/*  print  cross  sectional  areas  */ 

fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 15) ; 

sprintf (text, "% 6. Of  sq  ft ", barge_res [ 4 ] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  below  waterline  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 15) ; 

sprintf (text, "%6. Of ", barge_res [5] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  above  waterline  */ 

fprintf (out, "\n") ; 

fprintf (out, "\n") ; 

) 

fprintf (out, "\f") ;  /*  form  feed  */ 

/a********************************************/ 

/*  print  Section  III  */ 

/*********************************************/ 

/*  print  header  */ 
for  (i=0;  i<2;  i++) 
{ 

fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ; 
} 
fprintf (out, "\n") ; 
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fprintf (out, "\n") ; 

/*  print  tow  type  */ 
fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 7) ; 
if  (type==0) 

sprintf (text, "SHIP")  ; 
else  if  (type==l) 

sprintf (text, "DRYDOCK") ; 
else  if  (type==2) 

sprintf (text, "BARGE") ; 
strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  tow  type  */ 

fprintf (out, "\n") ; 

/*  print  data  */ 

fgets (inline, 81,  in) ; 

striper (inline) ; 

pad (inline, 13) ; 

sprintf (text, "%8.0f  lbs", resist_dat [0] ) ; 

strcat (inline, text) ; 

fprintf (out , "%s\n", inline) ;  /*  wind  resistance  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline,  7)  ; 

sprintf (text, "%6.1f  ft", resist_dat [ 1] )  ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  wave  height  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline,  13)  ; 

sprintf (text, "%8.0f  lbs", resist_dat [2] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  wave  resistance  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 13 ) ; 

sprintf (text, "%8.0f  lbs", resist_dat [3]  )  ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  hull  resistance  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 8) ; 

sprintf (text, "%8.0f  lbs", resist_dat [4 ] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) /  /*  propeller  resistance  */ 

fgets (inline, 81, in) ; 
fprintf (out, "%s", inline) ; 
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tow_res=resist_dat [0] ; 
for  (i=»2;  i<5;  i++) 

tow_res  +■  resist_dat [i] ; 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 8) ; 

sprintf (text, "%8 . Of  lbs", tow_res) ; 

strcat ( inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  total  tow  resistance  */ 

fprintf (out, "\n") ; 

hawser_resist (tug_data, tow_data [ 1 ] , tow_res, &haw_res) ; 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 16) ; 

sprintf (text, "%8 . Of  lbs", haw_res) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  hawser  resistance  */ 

fprintf (out, "\n") ; 

fgets (inline, 81, in) / 

striper (inline) ; 

pad (inline, 13) ; 

sprintf (text, "%8.0f  lbs", tow_res+haw_res) ; 

strcat (inline, text) ; 

sprintf (text, "   or  %6.2f  kips", (tow_res+haw_res) / 1000 . 0) ; 

strcat (inline, text) ; 

fprintf (out , "%s\n", inline) ;  /*  mean  towline  tension  */ 

fprintf (out, "\n") ; 

fprintf (out, "\n") ; 

/a********************************************/ 

/*  print  Section  IV  */ 

/•a*******************************************/ 

/*  print  header  */ 
for  (i=0;  i<2;  i++) 
{ 

fgets (inline, 81, in) ; 

fprintf (out , " %s " , inline ) ; 
} 

fprintf (out, "\n") ; 
fprintf (out, "\n") ; 

/*  print  tug,  tow  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 1) ; 

strcat (inline, tug) ; 

fprintf (out, "%s\n", inline) ;  /*  tug  */ 

fgets (inline,  81 ,  in) ; 

striper (inline) ; 
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pad (inline, 1) ; 

atrcat (inline, hull_no) ; 

fprintf (out, "%s\n", inline) ;  /*  tow  */ 

fprintf (out, "\n") ; 

/*  print  data  */ 

fgets (inline, 81, in) ; 

striper (inline) / 

pad (inline, 14 ) ; 

sprintf (text, "%8.1f  kts", tug_eval[0] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  desired  tow  speed  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad ( inl ine , 5 ) ; 

sprintf (text, "%8.0f  lbs", tug_eval [1] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) /  /*  mean  tension  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

sprintf (text, "%8.0f  lbs", tug_eval [2] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  available  tension  */ 

fprintf (out, "\n") ; 

/*  print  message  */ 

if  (tug_eval [2] >=tug_eval [1] )         /*  tug  has  sufficient  pull  */ 

fprintf (out, "%s\n", mssg [1] ) ; 
else  if  (tug_eval [2] <tug_eval [1] )     /*  tug  has  insufficient  pull  */ 
{ 

fprintf (out, "%s\n", mssg [0] ) ; 

fprintf (out, "%s\n", mssg [2] ) ; 
} 
fprintf (out, "\n") ; 

/*  print  remaining  data  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 8) ; 

sprintf (text, "%8. If  kts", tug_eval [3] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  best  possible  tow  speed  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 5) ; 

sprintf (text, "%8.0f  lbs", tug_eval [4]  )  ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  mean  tension  */ 

fgets (inline, 81 , in) ; 
striper (inline) ; 
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sprint f (text, "%8.0f  lbs", tug_eval [5] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  available  tension  */ 

fprintf (out, "\n") ; 

fgets (inline, 81, in) ; 
fprincf (out, "%s", inline) ; 

fgets (inline, 81, in) ; 

striper (inline) ; 

if  (tug_eval[6]==1.0) 

sprintf (text, "%5.1f  kts  (ORIGINAL) ", tug_eval [0] ) ; 
if  (tug_eval[6]==0.0) 

sprintf (text, "%5. If  kts  (BEST  POSSIBLE) ", tug_eval [3 ]) ; 
strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  selected  tow  speed  */ 

fprintf (out, "\n") ; 
fprintf (out, "\f") ;  /*  form  feed  */ 

/a********************************************/ 

/*  print  Section  V  */ 

/a********************************************/ 

/*  print  header  */ 
for  (i=0;  i<2;  i++) 
{ 

fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ; 
> 

fprintf (out, "\n") ; 
fprintf (out, "\n") ; 

/*  print  tug,  tow  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 1) ; 

strcat (inline, tug) ; 

fprintf (out, "%s\n", inline) ;  /*  tug  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 1) ; 

strcat (inline, hull_no) / 

fprintf (out, "%s\n", inline) ;  /*  tow  */ 

fprintf (out,"\n") ; 

/*  print  tabulated  data  */ 

fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 

striper  (inline) ; 

pad (inline, 1) ; 

i- ( int ) ext_data [ 0 ] ; 

strcat (inline, tabtow[i] ) ; 
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fprintf (out, "%s\n", inline) ; 


/*  tabulated  tow  */ 


fgets (inline, 81,  in) ; 

striper (inline) ; 

pad (inline, 15 ) ; 

sprintf (text, "%6.0f  tons" , ext_data [ 1] ) ; 

strcat ( inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  tabulated  displacement  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 18 ) / 

sprintf (text, "%6.0f  kts", ext_data [2] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  tabulated  tow  speed  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 17)  ; 

sprintf  (text,  "%6.0f  Jets",  ext_data[3] )  ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  tabulated  wind  speed  */ 


fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 13) ; 

sprintf (text, "%6.0f  deg", ext_data[4) ) 

strcat (inline, text) ; 


fprintf (out, "%s\n", inline) ; 


/*  tabulated  wind  direction  */ 


fgets (inline, 81, in) ; 

striper  (inline) ; 

pad (inline, 15) ; 

sprintf (text,  "%6.0f  ft", ext_data [5] )  ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline)  ;  /*  tabulated  hawser  scope  */ 


fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ; 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 10) ; 

sprintf (text, "%6.0f ", ext_data(6] ) 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline)  ; 

fprintf (out, "\n") ; 


/*  curve  number  */ 


/*  print  results  */ 
fgets (inline, 81, in) ; 
fprintf (out, "%s", inline) ; 


/*  header  */ 


fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 15) ; 
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if  (ext_data[9)— 0) 

sprintf (text, "%6.2f  kips  (ESTIMATED) ", ext_data [ 7] ) ; 
else  if  (ext_data (9]==1) 

sprintf (text, "%6.2f  kips  (ACTUAL) ", ext_data [7] ) ; 
strcat (inline, text) ; 
fprintf (out , "%s\n", inline) ;  /*  mean  tension  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 12) ; 

sprintf (text, "%6  .  2f  kips" , ext_data [8] -ext_data [7] ) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  dynamic  tension  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline,  12)  ; 

sprintf (text, "%6.2f  kips", ext_data [8]  )  ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  extreme  tension  */ 

fprintf (out, "\n") ; 

/*  print  warnings,  if  applicable  */ 
if  (ext_data[7]>100.0) 

{ 

fprintf (out, "%s",mssg(0] ) ; 
fprintf (out, "%s", mssg [3] ) ; 
fprintf (out, "%s",mssg(5] ) ; 
fprintf (out , " %s " , mssg [ 6 ] ) ; 
fprintf (out, "\n") ; 

> 

if  (ext_data(8]>4  00.0) 

{ 

fprintf (out, "%s", mssg[0] ) ; 

fprintf (out, "%s",mssg[4]  )  ; 

fprintf (out, "%s",mssg [5]  )  ; 

fprintf (out, "%s", mssg [6] ) ; 

fprintf (out, "\n") ; 
> 

/*  print  note  regarding  basis  for  speed, length  variations  */ 
for  (i-0;  i<2;  i++) 

{ 

fgets (inline, 81, in) ; 

fprintf (out , " %s " , inline ) ; 
> 
fprintf  (out, "\n") ; 

/*  print  speed  variation  data  */ 

fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
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pad (inline, 7) ; 

sprintf (text, "%10 . If %10 . If %10 . If " , spd_data ( 0] [0], apd_data(l] [0] , 

spd_data[2] [0] ) ; 
strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  tow  speed  */ 

fprintf (out, "\n") ; 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 10) / 

sprintf (text, "%10 .Of %10 .Of %10 .Of ", spd_data [0] { 1 ] , spd_data [ 1 ] [1] , 

spd_data[2] [1] ) ; 
strcat ( inline , text) ; 

fprintf (out, "%s\n", inline) ;  /*  curve  number  */ 

fprintf (out, "\n") ; 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 3) ; 

sprintf (text, "%10 . If %10 . If %10 . If ", spd_data[0] [2] , spd_data[l] [2] , 

spd_data[2] [2] ) ; 
strcat (inline, text) ; 
fprintf (out, "%s\n", inline) ;  /*  mean  tension  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

xl=spd_data[0] [3] -spd_data [0] [2]; 

x2=spd_data [ 1 ] [ 3 ] -spd_data [ 1 ] [ 2 ] ; 

x3=spd_data[2] [3] -spd_data [2] [2]; 

sprintf (text, "%10 . If %10 . If %10 . If ", xl, x2, x3) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  dynamic  tension  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

sprintf (text, "%10 . If %10 . If %10 . If ", spd_data [0] [3] , spd_data[l] [3] , 

spd_data[2] [3]) ; 
strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  extreme  tension  */ 

fprintf (out, "\n") ; 
fprintf (out, "\n") ; 

/*  print  length  variation  data  */ 

fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad ( inl ine , 5 ) ; 

sprintf  (text, "%10 .Of %10 .Of %10 .Of ", lgth_data [0]  [0] , lgth_data[l]  (0] , 

lgth_data(2] [0] ) ; 
strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  tow  speed  */ 

fprintf (out, "\n") ; 
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fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline, 10) ; 

sprintf (text, "%10 .Of %10 .Of %10 .Of " , lgth_data [0] [1] , lgth_data[l) [1] , 

lgth_data[2] (1] ) ; 
strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  curve  number  */ 

fprintf (out, "\n") ; 

fgets (inline, 81, in) ; 

striper (inline) ; 

pad (inline,  3)  ; 

sprintf (text, "%10 . If %10 . If %10 . If " , lgth_data[0] [2] , lgth_data ( 1 ] [2] , 

lgth_data(2] [2] ) ; 
strcat (inline, text) ; 
fprintf (out, "%s\n", inline) ;  /*  mean  tension  */ 


fgets (inline, 81, in) ; 

striper (inline) ; 

xl=lgth_data[0] [3] -lgth_data [0] [2] 

x2=lgth_data(l] [3] -lgth_data [ 1] [2] 

x3-lgth_data[2] [3] -lgth_data [2] [2] 

sprintf (text, "%10 . lf%10 . If %10 . If " , xl,  x2,  x3) ; 

strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  dynamic  tension  */ 


fgets (inline,  81,  in) ; 

striper (inline) ; 

sprintf (text,  "%10  .  If %10 . If %10 . If " , lgth_data[0]  (3) , lgth_data[l)  [3] 

lgth_data[2]  [3] )  / 
strcat (inline, text) ; 

fprintf (out , "%s\n", inline) ;  /*  extreme  tension  */ 

fprintf (out, "\f") ;  /*  form  feed  */ 

f close (in) ; 
f close (out) ; 


/*  send  report  file  to  printer  */ 

if  (prnt) 

{ 

/*  prompt  user  to  check  printer  before  proceeding  */ 

sprintf (textl, "Ensure  printer  is  on  line"); 

sprintf (text2, "and  ready  to  go"); 

display_error (WARN, textl,  text2) ; 

cursor_of f () ; 

/*  print  status  message  */ 

sprintf (text, " .  .  .  Printing  Report  .  .  ."); 

start  ■  (endcol-startcol-strlen  (text)  )  /2  +  started; 

write_string(startrow+8, start, text, REV_VID) ; 

sprintf (text, "Please  Wait"); 

start  -  (endcol-startcol-strlen (text) ) /2  +  startcol; 
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write_string(startrow+10, start, text, BLINK_REV_VID) 

/*  print  report  */ 
print_rep () ; 
} 

clear (startrow+1, startcol+1, endrow-1, endcol-1)  ; 
return; 
} 

print_rep () 

{ 

FILE  *in; 
char  str[81]; 

in=f open ("report. out",  "r")  ; 

while  (  !feof(in)  ) 

{ 

if  (fgets (str, 81,  in)  ) 
prints (str) ; 

) 
) 

prints (s) 

char  *s; 

{ 

while  (*s)  bdos(0x5, *s++,0) ; 

> 
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/a*********************************************************************** 
File:  plt.c 
Author:  J.  H.  Milgram 
Edited:  Todd  J.  Peltzer 
Last  update:  30  April  1989 

This  file  contains  plotting  functions  written  for  the  ATHENA  lab 
computer,  using  Halo  88  functions.  Modified  to  work  with  TOWCALC. 
a************************************************************************/ 

♦include  "stdio.h" 
♦include  "pithead. h" 
♦include  "string. h" 

setplt () 
( 

FILE  *fp; 

int  status, nbr, n; 

char  chl,  ch2,  gdevice [ 13]  ,  inline [81]  ; 

fp  =  fopenCdevice.dat",  "r")  ; 

n=fscanf (fp, "%s\n", gdevice) ;         /*  read  device  driver  from  file  */ 

n=fscanf (fp, "%d\n", imode) ;  /*  read  graphics  mode  from  file  */ 

f close (fp) ; 
setdev(  gdevice  ); 
scxx  =  8.28; 
scyy  =  5.52, 
cnul  =  '\0' 
knumx  =  0; 
knumy  ^  0; 
xO  =  0.13; 
yOp  =  0.10; 
xl  =  0.80; 
yl  =  0.87; 
} 

locate (xOi, yOi, xli, yli) 
float  *x0i, *y0i, *xli, *yli; 

{ 

xO  =  *x0i  /  scxx; 

yOp  -  *y0i  /  scyy; 

xl  =  *xli  /  scxx; 

yl  ■=  *yli  /  scyy; 
} 

line3 (npts, x, y) 
short  *npts; 
float  x[],  y[]  ; 
( 

short  npt; 

float  xml,yml; 

xml  ■  x [ 0 ] ; 

yml  =  y[0]; 

movabs (  &xml,  fiyml) ; 
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npt  =  *npts  -  1; 
polylnabs (  x,  y,  inpt  ) ; 

> 

xyaxis (xmn, xmx, xtc, ymn, ymx, ytc, xf ,  yf ,  kod) 
float  *xmn,  *xmx,  *xtc,  *ymn,  *ymx,  *ytc,  *xf ,  *yf ; 
short  *kod; 
{ 

float  xdel, ydel, xsmall, ysmall, xbig, ybig, xmnp, ymnp, xmxp, ymxp, zero; 

short  ione,  izr,  kode,  i,  mn,  mm,  ml,  m2; 

short  format  =  1,  height  =  1,  page  =  1,  screen  =  1,  width  =  1; 

ione  =  1; 

izr  =  0; 

xdel  =  *xmx  -  *xmn; 

ydel  =  *ymx  -  *ymn; 

xsmall  =  *xmn  -  (xO  /  xl)  *  xdel; 

xbig  =  *xmx  +  ((1.0  -  xO  -  xl)  /  xl)  *  xdel; 

ysmall  =  *ymn  -  (yOp  /  yl)  *  ydel; 

ybig  =  *ymx  +  ((1.0  -  yOp  -  yl)  /  yl)  *  ydel; 

xrange  ■  xdel  /  xl; 

yrange  =  ydel  /  yl; 

initgraphics (  &mode  ) ; 

setieee  (  Sformat  ) ; 

display (  &page  ); 

setscreen  (  (screen  ) ; 

setworld(  fixsmall,  Sysmall,  &xbig,  &ybig  ); 

inqdrange (  &npx,  &npy  ); 

nfax  =  npx  /  scxx; 

nfay  =  npy  /  scyy; 

xmnp  =  *xmn; 

xmxp  =  *xmx; 

ymnp  =  *ymn; 

ymxp  ■  *ymx; 

mapwtod(  &xmnp,  &ymnp,  &ix0,  &iy0); 

mapwtod(  &xmxp,  &ymxp,  &ixl,  Siyl) ; 

ptabs (  Sxmnp,  Symnp  ) ; 

inqclr (  &xmnp,  &ymnp,  fiicf  ); 

inqbknd (  &icb  ); 

setcolor(  &icb  ); 

ptabs (  fixmnp,  Symnp  ) ; 

setcolorf  &icf  ); 

inittcur(  Sheight,  &width,  &icb  ); 

tclx  =  0.011  *  (*xmx  -  *xmn) ; 

tcly  ■  0.015  *  (*ymx  -  *ymn) ; 

kode  =  *kod; 

xtic  =  *xtc; 

ytic  *  *ytc; 

if  (kode  >=  10) 

goto  easel; 
movabs (  &xmnp,  &ymxp  ); 
lnabs (  fixmnp,  iymnp  ) ; 
lnabs (  fixmxp,  &ymnp  ) ; 
if  (kode  ~  1) 
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goto  easel; 
lnabs (  ixmxp,  &ymxp  ) ; 
lnabs  (  &xmnp,  &ymxp  ) ; 

easel:  nxx  =  (1.0001  *  (*xmx  -  *xf ) )  /  xtic  +  1; 
nyy  =  (1.0001  *  (*ymx  -  *yf ) )  /  ytic  +  1; 
if  (kode  >=  10) 

kode  =  kode  -  10; 
xxnin  =  *xmn; 
xmax  =  *xmx; 
ymin  =  *ymn; 
ymax  =  *ymx; 
xff  -  *xf; 
yff  =  *yf; 
for  (  i  =  1;  i  <=  nxx;  i++  ) 

xtx[i]  =  (*xf  +  (i  -  1)  *  xtic); 
for  (  i  =  1;  i  <=  nyy;  i++) 

yty[i]  *  (*yf  +  (i  -  1)  *  ytic) ; 
if  (  kode  ==  3  ) 

goto  case 2; 
for  (  i  =  1;  i  <=  nxx;  i++  ) 
{ 

xtl[i]  =  *ymn  -  tcly; 

if  ((kode  ==2)  |  |  (kode  ==  4))   goto  cased; 

xtufi]  =  *ymn  +  tcly; 

goto  case02; 

caseOl:   xtu[i]  =  *ymn; 

case02:  ; 
} 

for  (  i  =  1;  i  <=  nyy;  i++  ) 
{ 

ytlfi]  =  *xmn  -  telx; 

if  ((kode  ==2)  ||  (kode  ==  4)) 
ytu[i]  =  *xnvn; 

else 

ytu[i]  =  *xmn  +  telx; 
} 

goto  case3; 

case2 :   for  (  i  =  1;  i  <»  nxx;  i++  ) 
{ 

xtl[i]  ■  *ymn; 

xtu[i]  ■  *ymx; 
) 

for  (  i  -  1;  i  <=  nyy;  i++  ) 
{ 

ytl[i]  -  *xmn; 

ytu[i]  »  *xmx; 
) 
case3 : 

if  (*yf  >■»  ymax)   goto  case5; 
mm  =  nyy  /  2  +  1; 
for  (  i  ■  1;  i  <=  mm;  i++) 

{ 

ml  -  nyy  -  2  *  (i  -1) ; 
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if  (ml  <  1)   goto  case4; 

drawu (  &ytl[ml],  &yty[ml],  &ytu[ml],  &yty[ml]  ); 

m2  =  ml  -  1; 

if  (  m2  <  1)   goto  case4; 

drawu(  &ytu[m2],  &yty[m2],  &ytl[m2],  &yty(m2]  ); 

case4 :  ; 
) 
case5:   if  (*xf  >  xmax)   goto  case7; 

mn  ■  nxx  /  2  +  1; 

for  (  i  =  1;  i  <=  mn;  i++  ) 

{ 

ml  -  1  +  2  *  (i  -  1)  ; 

if  (ml  >  nxx)   goto  case6; 

drawu (  &xtx(ml],  &xtl[ml],  &xtx[ml],  &xtu[ml]  ) ; 

m2  ■  ml  +  1; 

if(  m2  >  nxx)   goto  case6; 

drawu (  &xtx[m2],  &xtu[m2],  &xtx[m2],  &xtl[m2]); 

case6:  ; 
} 

case7:  if  ( (kode  ==1)  II  (kode  ==  3))   goto  casel2; 
for  (  i  =  1;  i  <=  nyy;  i++) 
( 

y31[i]  =  *xmx  -  tclx; 

y3u[i]  =  *xmx; 
} 

for  (  i  =  1;  i  <=  nxx;  i++  ) 
( 

x31(i]  =  *ymx  -  tcly; 

x3u[i]  =  *ymx; 
} 

if  (*yf  >=  ymax)   goto  case9; 
for  (  i  =  1;  i  <■  mm;  i++) 
{ 

ml  =  1  +  2  *  (i  -  1) ; 

if  (ml  >  nyy)   goto  caseS; 

drawu (   &y31[ml],  &yty[ml],  &y3u[ml],  Sytyfrnl]  ); 

m2  =  ml  +  1; 

if  (m2  >  nyy)  goto  caseS; 

drawu (  &y3u[m2],  &yty[m2],  &y31[m2],  &yty[m2]  ); 

caseS :   ; 
} 

case?:   if  (*xf  >-  xmax)   goto  casell; 
for  (  i  ■  1;  i  O  mn;  i++  ) 

{ 

ml  =  nxx  -  2  *  (i-1) ; 

if  (ml  <  1)   goto  caselO; 

drawu (  &xtx[ml],  &x31[ml],  &xtx[ml],  &x3u[ml]  ); 

m2  =  ml  -  1; 

if  (m2  <  1)   goto  caselO; 

drawu (  &xtx[m2],  &x3u(m2],  &xtx[m2],  &x31[m2]  ); 

caselO:   ; 
I 
casell:   if  (kode  !=»  4)   goto  casel2; 
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zero  =  0.0; 

drawu (  &zero,  &ymnp,  (zero,  &ymxp) ; 
drawuf  Sxmnp,  &zero,  fixmxp,  (zero)  ; 
casel2:   ; 
) 

drawu  (xl,  yl,  x2,  y2) 
float  *xl, *yl, *x2, *y2; 
{ 

float  xxl, yyl, xx2, yy2; 

xxl  =  *xl; 

yyl  =  *yl; 

xx2  =  *x2; 

yy2  =  *y2; 

movabs (&xxl, &yyl) ; 

lnabs (&xx2,  &yy2)  ; 
) 

label (itype, string) 

int  * itype; 

char   string [81]   ; 

{ 

char  cdl, straux [81] , cnull=NULL, *result; 

int  h  =  1,  w  =  1,  hor  =  0,  ver  =  1,  str  =  0; 

int  n,nm  ; 

float  ywl, xlaby, xxn, yyn, xnl, ynl, xx, yy; 

cdl  -  'J 

strset (straux, cnull) ; 

if  (  *itype  !=>  1   &&   *itype  !=  2  )   goto  casend; 

n  =  strlen (string) ; 

nm  =  n-1; 

if  (string[nm]  ==  cdl) 

{ 

strncpy (straux, string, nm) ; 

straux [nm]  =  cnull; 

n  =  nm   ; 
} 

if  (string[nm]  !"  cdl) 
( 

strncpy (straux, string, n) ; 

straux [n]  -  cnull  ; 
} 

if  (*itype  —  1) 
( 

xxn  «x0+0.5*  (  xl  -  0.01  *  (n+2)  ); 

yyn  =1.0-  yOp  +  0.1; 

settext (&h, &w, &hor, &str) ; 

> 

else    goto  case3  ; 

goto  case4  ; 

case3 :   xlaby  =  xmin  -  0.070  *  xrange  ; 

ywl  »  0.0  ; 

mapwton (    fixlaby,     &ywl,     &xnl,&ynl    )     ; 

xxn   »   xnl    -    2.    *    0.018    ; 
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yyn  -  1.0  -  yOp  +  0.5  *  (  0.023  *  n  -  yl  ); 
settext(&h,  &w,  Sv«r,  istr)  ; 
case4 :    mapntow ( ixxn ,  &yyn,  &xx,  &yy) ; 
movtcurabs (&xx, &yy) ; 
btext  (straux)  ; 
casend:  ; 
} 

labely (x, y, string) 
float  *x,  *y  ; 
char   string [81]   ; 
( 

char  cdl, straux [81] , cnull=NULL,  *result; 

int  h  =  1,  w  ■  1,  hor  =  0,  ver  =  1,  str  =  0; 

int  n,nm  ; 

float  xl,yl; 

cdl  =  ' _' ; 

strset (straux, cnull) ; 

n  =  strlen (string) ; 

nm  =  n-1; 

if  (stringfnm]  ==  cdl) 

{ 

strncpy (straux, string, nm) ; 

straux [nm]  =  cnull; 
} 

if  (string(nm]  !=  cdl) 
{ 

strncpy (straux, string, n) ; 

straux [n]  =  cnull  ; 

} 

settext (&h, &w, &hor, (str) ; 
xl  =  *x; 
yl  =  *y; 

movtcurabs (&xl, &yl) ; 
btext (  straux  ) ; 
) 

endplt ( ) 
{ 

closegraphics () ; 

> 

symplt (npts, x, y, nsym) 
int  *npts, *nsym; 
float  x[],  y[]; 

{ 

float  dx, dy,xx, yy, xxl, xxm, xxr, yyb, yym, yyt , dd, yyy,  ddx; 

int  sty  =  1  ,  i, nsymb, ncode, npnt; 

sethatchstyle (&sty) ; 

ncode  «  *nsym  /  10; 

nsymb  =  *nsym  -   10  *  ncode; 

dx  =  0.006  *  xrange; 

dy  =  0.008  *  yrange; 

npnt  ■  *npts  -  1; 
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for  (  i  =  0  ;  i  <=  npnt  ;  ++i  ) 
( 

xx  =  x [ i ] ; 

yy  =  y[i]; 

xxl  ■  xx  -  dx; 

xxm  =  xx; 

xxr  =  xx+  dx; 

yyb  =  yy  -  dy; 

yym  =  yy; 

yyt  =  yy  +  dy; 

if  (nsymb  !=  0)  goto  easel; 

raovabs  ( &xxl ,  &yym)  ; 

lnabs  (ixxr, &yym) ; 

movaba (&xxm, &yyt) ; 

lnabs (&xxm, &yyb) ; 

easel:    if  (nsymb  !=  1)   goto  case2; 

movabs (&xxl, &yyb) ; 

lnabs (&xxr, &yyt)  ; 

movabs (&xxl, Syyt) ; 

lnabs  (&xxr, &yyb) ; 

case2:    if  (nsymb  !=  2)   goto  case3; 

movabs (&xxl, &yyb) ; 

lnabs  (&xxr, &yyb) ; 

lnabs  (&xxr, &yyt) ; 

lnabs  (&xxl, &yyt) ; 

lnabs  (Sxxl, &yyb) ; 

if  (ncode  ==  0)  goto  case3; 

movabs (&xx, &yy) ; 

flood (&icf) ; 

case3 :    if  (nsymb  !=  3)   goto  case4; 

movabs (&xxl, &yym) ; 

lnabs  (Sxxm, &yyb) ; 

lnabs  (&xxr,&yym); 

lnabs  (&xxm,&yyt); 

lnabs  (&xxl,&yym); 

if  (ncode  =■  0)   goto  case4  ; 

movabs (&xx, &yy) ; 

flood (&icf) ; 

case4 :    if  (nsymb  !»  4)  goto  case5; 

movabs (&xxm, &yyt) ; 

lnabs (fixxl, &yyb) ; 

lnabs (&xxr, &yyb) ; 

lnabs  (Sxxm, 4yyt) ; 

if  (ncode  =«  0)  goto  case5; 

movabs (&xx, &yy) ; 

flood (&icf) ; 

case5:    if  (nsymb  !=  5)  goto  case6; 

movabs (ixxr , &yyt) ; 

lnabs (&xxl, &yyb) ; 

lnabs  (&xxr, &yyb) ; 

lnabs  (&xxl,&yyt); 

lnabs  (&xxr, &yyt) ; 

if  (ncode  *=*  0)  goto  case6; 

dd  *  0.005  *  yrange; 
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yyy  =  yy  +  <*<*; 

movabs  (&xx, &yyy) / 
flood (&icf) ; 

yyy  -  yy  -  dd; 

movabs (&xx, &yyy) ; 
flood (&icf) ; 

case6 :    if  (nsymb  !=  6)  goto  case7; 
movabs (&xx, &yy) ; 
ddx  =2.0*  dx; 
cir (&ddx) ; 

if  (ncode  ==  0)  goto  case7; 
movabs (&xx, &yy) ; 
flood (&icf) ; 

case? :    ptabs (&xx, &yy) ; 
) 
) 

eraseu (xl, yl, x2, y2) 
float  *xl,  *yl,  *x2,  *y2; 

< 

float  xo,yo,xt,yt; 

xo  =  *xl; 

yo  =  *yl; 

xt  ■  *x2; 

yt  =  *y2; 

setcolorf  &icb  ); 

movabs (  &xo,  &yo  ); 

lnabs (  &xt,  &yt  ); 

setcolor(  &icf  ); 
} 

axnum (ntx,  nty) 
short  *ntx  ,  *nty  ; 
{ 

static  char  *cmft  []  = 

{"     ",  "%5.0f",  "%5.1f",  "%5.2f",  "%5.3f", 

"%5.4f",  "%5d",  "%   3d" 

}; 

static  char  *clft []  = 

{"     ",  "%6.0f",  "%6.1f",  "%6.2f",  "%6.3f", 

"%6.4f",  "%5d",  "%   3d" 

); 

short  i,  jx,  jy,  ival,  ione  =  1,  izero  =  0  ; 
float  yy, xx  ,  val  ; 
char  cvl[12]  ,  cvs[12]  ; 

ntix   =    *ntx      ; 
ntiy   =*    *nty      ; 

jx   =    7 

jy  -  7 

settext (fiione, iione, Sizero, fiizero)     ; 
if    (    Jcnumx   =    1    )    goto   easel; 
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jx  =  1   ; 

if  (  (xmax  >   9999.5)  ||  (xmin  <   -999.95)  )   jx  - 
if  (  (xmax  <  999.95)  &&  (xmin  >  -99.95)  )   jx  -  2 
if  (  (xmax  <  99.995)  &&  (xmin  >  -9.995)  )   jx  -  3 
if(  (xmax  <  9.9995)  &&  (xmin  >  -0.9995)  )  jx  =  4 
if(  (xmax  <  0.99995)  &&  (xmin  >*  0.000)  )   jx  =  5 

easel:  if  (  knumy  ==  1  )  goto  case2; 

jy  =  i  ; 

if  (  (ymax  >  9999.5)   ||  (ymin  <  -999.95)  )   jy  =  6 

if  (  (ymax  <  999.95)  &&  (ymin  >  -99.95)  )   jy  =  2 

if  (  (ymax  <  99.995)  &&  (ymin  >  -9.995)  )   jy  -  3 

if  (  (ymax  <  9.9995)  &&  (ymin  >  -0.9995)  )  jy  =  4 

if  (  (ymax  <  0.99995)  &&  (ymin  >=  0.00)  )    jy  ■  5 
case2  :  ; 

for  (i  =  1  ;  i  <=  nxx  ;  i  =  i  +  ntix) 

{ 

yy  =  ymin  -  0.045  *  yrange  ; 

xx  =  xtx(i]  -  0.045  *  xrange  ; 

val  =  xff  +  (i-1.)  *  xtic  ; 

ival  =  val  ; 

if  (jx  >=    6)  sprintf  (cvl,  clft [ jx] , ival)  ; 

if  (jx   <  6)  sprintf  (cvl, clft [ jx] , val)  ; 

movtcurabs (&xx,  &yy)  ; 

btext (cvl)  ; 

} 

for  (i  =  1  ;  i  <=  nyy  ;  i  =  i  +  ntiy  ) 

{ 

xx=  xmin  -  0.070  *  xrange  ; 

yy=  yty[i]  -  0.013  *  yrange  ; 

val=yff  +  (i-1)  *  ytic  ; 

ival  =  val  ; 

if  (jy   >=  6)  sprintf (cvs, cmft [ jy] ,  ival)  ; 

if  (jy   <   6)  sprintf (cvs, cmft [ jy] , val)  ; 

movtcurabs (&xx, &yy)   ; 

btext (cvs)  ; 
} 


) 


waitke () 

{ 

/*  WAITING. . .*/ 

/*  LOOP  UNTIL  kbhit()  REPORTS  A  KEYSTROKE...*/ 

while (  !kbhit()  )  ; 

} 
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/************************************************************************ 
File:  tlib.c 
Author:  Todd  J.  Peltzer 
Last  update:  30  April  198  9 

This  file  combines  the  files  iolibl.c,  popup. c,  and  video. c 

* * 

iolibl .c 

Author:  Norbert  H.  Doerry 
Edited:  Todd  J.  Peltzer 
Last  update:  30  April  1989 

This  file  contains  a  set  of  routines  to  augment  the  10  functions 
in  the  standard  10  libraries . 

Note:  this  version  of  iolib  combines  NHD' s  original  iolib  and  ioliba 
files  along  with  modifications  and  additions  by  TJP. 


Functions : 
stofa  () 
stoda  () 
stoia  () 
parse () 
suctolc () 
slctouc () 
strsplit ( ) 
strstrip ( ) 
striper  () 
bioskey  () 
get_key ( ) 
get_special ( ) 
is_in () 
******************* 

♦include  "stdio.h" 
♦include  "dos.h" 
♦include  "stdlib.h" 
♦include  "keydef.h" 
♦include  "video. h" 

int  vmode; 

char  far  *vid  mem; 


"string  to  floating  array" 
"string  to  double  array" 
"string  to  short  integer  array" 
parse  a  string  into  its  elements 
"string  upper  case  to  lower  case" 
"string  lower  case  to  upper  case" 
"string  split" 
"string  strip" 
"strip  carriage  return" 

emulates  part  of  the  Turbo  C  bioskey ()  function 
reads  the  16-bit  scan  code  of  a  key 

returns  the  position  code  of  arrow  and  function  keys 
tests  if  a  character  is  in  a  given  string 
******************************************************/ 


/************************************************************************ 
stofa  :  "string  to  floating  array" 
Norbert  H.  Doerry 
rev  a  10  July  1988 

rev  b  29  October  1988  (TJP) :   added  fourth  argument;  deleted  flags. 
rev  c  30  October  1988  (TJP):   added  exponential  notation. 

This  function  converts  a  string  to  an  array  of  floating  point  numbers 
and  passes  back  the  array  and  the  number  of  numbers  successfully  con- 
verted. The  function  returns  zero  if  read  successfully  to  the  end  of 
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the  line,  otherwise  it  returns  the  character  at  which  failure  occurred. 
The  fourth  argument  passed  to  the  function  is  the  maximum  number  of 
elements  in  the  array. 

Note:  stofa  does  not  convert  with  100%  accuracy;  roundoff  error  causes 
some  loss  of  significance  beyond  5  or  6  decimal  places.  Use  the 
function  "stodaO"  if  more  significant  digits  are  required. 
♦••A*********************************************************************/ 

stofa (string, f ltaptr, nbrptr, maxnum) 

char  string [ ] ; 

float  f ltaptr [] ; 

int  * nbrptr, maxnum; 

{ 

int  sign; 

int  index  =  0; 

int  expsign,  exponent; 

float  power; 

char  ch; 

float  inch; 

*nbrptr  =0; 

while  ( (ch«string[index++] )  ==  '  '  | |  ch  —  ' \t' )  ; 
/*  strip  off  leading  blanks  and  tabs  */ 

while  ( ( (ch  >-  ' 0'  &&  ch  <«  ' 9' )  I  I  ch  ==  '  . '  |  |  ch  ==  ' +'  |  |  ch  ==  ' -' 
| |  Oh  —  ' , '  | |  ch  ==  ' ; '  | I  ch  ==  ' :' )  &&  "nbrptr  <  maxnum) 

{ 

sign  =  1; 
power  =  10; 

if  (  ch  ==  '-'  ||  ch  ==  ' +' ) 
{ 

if  (  ch  ==  ' -' ) 

sign  =  -1; 
else 

sign  ■  1; 
ch  =  string [ index++] ; 
} 
fltaptr [*nbrptr]  -  0;    /*  Initialize  value  */ 
while  (ch  >-  '0'  &&  ch  <=  '9') 

{ 

fltaptr [*nbrptr]  -  10.0  *  (fltaptr [ *nbrptr] )  +  ch  -  ' 0' ; 
ch  ■  string [ index++ ] ; 

> 

if  (ch  «  ' .')     /*  Check  for  decimal  point  */ 

while  ((ch  -  string [ index++] )  >-  '0'  &&  ch  <«  '9') 

{ 

fltaptr [*nbrptr]  -  fltaptr [ "nbrptr ]  +  (ch  -  '0')  /  power; 
power  *■  10; 
> 
/*  Check  for  exponential  notation  */ 
if  (oh  —  'V     ||  ch  =»  'e'  ) 
{ 

expsign  »  1; 

if  (  (ch  -  string [ index++] )  —  '  -'  ||  ch  —  '+') 
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I 

if  (  Ch  mm    '-'  ) 

expsign  =  -1; 
ch  =  string [index++] ; 
} 

exponent  —0; 

while  (oh  >=  '0'  &&  ch  <=  '9') 
{ 

exponent  =  10.0  *  (exponent)  +  ch  -  '0'; 
ch  **    string  [  index++]  ; 
} 

power  =  (expsign  «=  -1)  ?  0.1  :  10; 
while  (exponent--  >=»1) 
{ 

f ltaptr [*nbrptr]  *■  power; 
} 
) 

else  if  (ch  ==  '-')  /*  Check  for  "ft-in"  entry  */ 
{ 

if  ( (ch  =  string [index++] )  >=  '0'  &&  ch  <=' 9' ) 
{ 

inch  ■  ch  -  '  0'  ; 

if  (inch  ==  1  |  |  inch  ==»  0) 

if  ( (ch  =  string ( index++ ] )  ==  '0'  ||  ch  »=  '1') 

inch  =  10*inch  +  ch  -  '0'; 
else 

index--; 
power  =  10; 

if  ( (ch  =  string ( index++ ] )  =-'.')   /*  ft-decimal  inch  */ 
{ 

while  ((ch  =  string [ index++] )  >-  '0'  &&  ch  <=  '9') 

{ 

inch  =  inch  +  (ch  -  '0')  /  power; 
power  *■  10; 
} 
) 
else  if  (ch  ==  ' -' )   /*  ft-inch-eighth  */ 

{ 

if  ( (ch  -  string [index++] )  >-  '0'  &&  ch  <~  '7') 

{ 

inch  +■  (ch  -  '0' )/(8.0)  ; 

if  ( (ch  -  string [ index++ ] )  =»  '.') 

while  ((ch  -  string  [index++]  )  >=»  '0'  &&  ch  <=  '9') 

{ 

inch  +-  (ch  -  ' 0' ) / (8 . 0*power) ; 
power  *•  10; 
} 
} 
} 
fltaptr(*nbrptr]  +-  inch  /  12.0; 

) 
} 

f ltaptr [*nbrptr]  *■  sign; 
(*nbrptr)++; 
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if  (ch  —  '  -'  |  |  ch  ==  ' +'  | |  oh  —  '  8'  I  I  ch  =-  ' 9'  | |  ch  —  ' .' ) 

break; 
while  (ch  =-  '  '  | |  ch  —  ' \t' ) 

ch  =■  string [index++] ; 
if  (ch  =-  ' : '  ||  ch  ==  ' ; '  | |  ch  ==  ' , '  ) 

/*  recognize  these  characters  as  delimiters  */ 
while  ( (ch  =  string [index++] )  ==  '  '  | |  ch  ==  ' \t' )  ; 
while  (ch  ==  ' :'  | |  ch  —  ' ;'  | |  ch  ==  ' , '  ) 
{ 

if  (*nbrptr  <  maxnum) 
{ 

f ltaptr [*nbrptr]  =  0; 
(*nbrptr) ++; 
) 

while  ( (ch  =  string [index++] )  —  '  '  | |  ch  ==  '\t')  ; 
} 
} 
return  (ch) ; 


) 


stoda  :  "string  to  double  array" 
Todd  J.  Peltzer 

after  stofa  by  Norbert  H.  Doerry 
29  October  1988 

This  function  converts  a  string  to  an  array  of  double  precision  numbers 
and  passes  back  the  array  (via  "dblaptr")  and  the  number  of  numbers 
successfully  converted  (via  "nbrptr") .  The  function  returns  zero  if  it 
read  successfully  to  the  end  of  the  line,  otherwise  it  returns  the 
character  at  which  failure  occurred.  The  fourth  argument  passed  to  the 
function  ("maxnum")  is  the  maximum  number  of  elements  in  the  array. 
The  function  accepts  numbers  in  either  decimal  or  exponential  form  (but 
not  ft-inch-eighth) . 
a************************************************************************/ 

stoda (string, dblaptr, nbrptr, maxnum) 

char  string [] ; 

double  dblaptr [ ] ; 

int  *nbrptr,  maxnum; 

{ 

int  sign; 

int  expsign,  exponent; 

int  index  «  0; 

double  power; 

char  ch; 

*nbrptr  ■  0; 

while  ( (ch=string[index++] )  «-  '  '  ||  ch  ==  ' \t' )  ; 
/*  .  .  .  strip  off  leading  blanks  and  tabs  */ 

while  ( ( (ch  >-  ' 0'  fifi  ch  <*  ' 9' )  | |  ch  =-  ' . '  | |  ch  —  ' +'  | |  ch  ==  ' -' 

| |  ch  —  ' , '  | |  ch  »-  ' ; '  | |  ch  ==  ' : ' )  &&  *nbrptr  <  maxnum  ) 
/*  .  .  .  test  for  allowable  characters  */ 
{ 

sign  =1; 
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power  ■  10; 

if  (  ch  =-  '-'  ! |  ch  —  '+' ) 
( 

if  (  ch  -=  ' -' ) 

sign  =  -1; 
ch  -  string [ index++] ; 
} 
dblaptr ( *nbrptr]  =  0;    /*  Initialize  value  */ 
while  (ch  >-  '0'  &&  ch  <=  '9') 
{ 

dblaptr (*nbrptr]  =  10.0  *  (dblaptr [ *nbrptr] )  +  ch  -  '  0'  ; 
ch  =  string [index++] ; 

} 

if  (ch  =»'.')     /*  Check  for  decimal  point  */ 

while  ((ch  =  string[index++] )  >=  '0'  &&  ch  <=  '9') 
{ 

dblaptr [*nbrptr]  =  dblaptr [*nbrptr]  +  (ch  -  '0')  /  power, 
power  *=  10; 
) 
/*  Check  for  exponential  notation  */ 
if  (ch  ==»  'E'  |  |  ch  —  'e'  ) 

{ 

expsign  =  1; 

if  (  (ch  -  string [ index++] )  ==  ' -'  II  ch  «  '+') 

{ 

if  (  ch  ==  '-' ) 

expsign  =  -1; 
ch  =  string [index++] ; 
> 

exponent  ■  0 ; 
while  (ch  >-  '0'  &&  ch  <-  '9') 

{ 

exponent  ■  10.0  *  (exponent)  +  ch  -  '0'; 
ch  -  string [ index++] ; 

> 

power  ■  (expsign  ■■  — 1)  ?  0.1  :  10; 

while  (exponent —  >"1) 

{ 

dblaptr [*nbrptr]  *■  power; 

} 
) 

dblaptr [*nbrptr]  *»  sign; 

(*nbrptr)++; 

if  (ch  —  ' -'  I  I  ch  —  ' +'  I  I  ch  —  '  . ' ) 
break; 

while  (ch  --  '  '  II  ch  —  ' \t' ) 
ch  ■  string (index++] ; 

if  (ch  ==  '  :'  | |  ch  —  '/'  I  I  ch  ==  '  ,  '  ) 

/*  recognize  these  characters  as  delimiters  */ 

while  ((ch  -  string [ index++] )  —  '  '  I  I  ch  —  ' \t' )  ; 

while  (oh  —  ' «'  I  I  ch  —  '  ;'  I  I  ch  ==  '  ,  '  ) 

( 

if  (*nbrptr  <  maxnum) 
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( 

dblaptr [*nbrptr]  -  0; 
(*nbrptr) ++; 
} 

while  ( (ch  -  string [index++] )  ==  '  '  | |  ch  ==  '\t') 
} 
} 
return  (ch) ; 


} 


stoia  :  "string  to  short  integer  array" 
Todd  J.  Peltzer 
16  April  1989 

This  function  takes  a  character  string  and  converts  it  to 
an  array  of  short  integers. 
a*************************************************************************/ 

stoia (string, array, nbrptr,maxnum) 

char  string (] ; 

short  array [ ] ; 

int  *nbrptr; 

int  maxnura; 

{ 

char  ch; 

int  index=0; 

*nbrptr=0; 

/*  strip  leading  blanks  and  tabs  */ 

while  (  (ch=string[index++] )=='  '  | |  ch  ==  ' \t' )  ; 

while  (  (ch  >=  '0'  &&  ch  <-  '9')  &&  *nbrptr<maxnum) 
{ 

array [*nbrptr]  ■  0; 

while  (ch  >=  '0'  &&  ch  O  '9') 

{ 

array [*nbrptr]  =  10* (array [ *nbrptr] )  +  ch  -  ' 0' ; 
ch  =  string [index++] ; 
) 

(*nbrptr)++; 

while  (ch—'  '  |  |  ch  —  '  \t'  ) 
ch  —  string [index++] ; 
I 

return  ch; 
} 

Norbert  Doerry 
11  July  1988 

This  converts  all  the  upper  case  characters  in  a  string  to  lower  case 
••A**********************************************************************/ 

suctolc (instring, outstring) 
char  instring [], outstring [ ] ; 
{ 
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int  i ; 

for  (i  -  0;  instring [i]  !=  NULL  ;  i++) 
{ 

if  (instring[i]  >=  'A'  &&  instring[i]  <=  '  Z'  ) 

outstring[i]  ■  instring [i]  -  'A'  ♦  'a'; 
else 

outstringti]  =  instring ti]; 
} 
outstringti]  =  NULL; 
} 


NHD 


This  ccr.verts  all  the  lower  case  characters  in  a  stn.-.r 
*****»*»***«**•»*•*•»■*•»»*«*****■****«•»»**»«».»*».»».*»».».»,,,»,,,,... 

slctouc (instring, outstring) 
char  instring [ ] , outstring [] ; 

{ 

int  i  ; 

for  (i  =  0;  instringfi]  !»  NULL  ;  i++) 
{ 

if  (instringti]  >=  'a'  &&  instringfi]  <=  ' z' ) 

outstring [i]  =  instring [i]  -  'a'  +  'A'; 
else 

outstringti]  =  instring [i]; 
) 
outstring[i]  =«  NULL; 
I 


This  function  strips  a  string  of  leading  and  trail:.-.?  spaces  ar.c  tabs. 

str strip (s) 
char  *s; 
I 

int  i ,  j ; 

/*  find  first  none  space  or  tab  */ 

for  (i  -  0  ;  s[i]  «-  '  '  | |  s[i]  —  '\t'  ;  i++)  ; 

/*  copy  string  */ 

for  (j  =  0  ;  s[i]  !=  NULL  ;  s[j++]  =  afi-M-]); 

s[  j]  =*  NULL; 

/*  delete  trailing  spaces  and  tabs  and  Cr*/ 
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for  (j  =  strlen(s)  -  1  ;  s[j]  ==  '  '  ||  3  [  j  ]  ==  '  \t'  || 
s[j]  «  '\n'  ;  »[j — ]  =  NULL); 

) 

This  function  pads  the  end  of  a  string  with  a  specified 
number  of  spaces. 

•ft***********************************************************************/ 

pad (str, n) 

char  *str;  /*  string  to  pad  with  spaces  */ 

int  n;  /*  number  of  spaces  to  pad  */ 

{ 

int  i=0, j; 

while  (  str [++i] !=NULL) ; 
for  (j=0;  j<n;  j++) 

str[i+j]='  '; 
str (i+n]=NULL; 
} 

/•a********************************************************************** 

This  function  strips  the  carriage  return  from  a  string. 
••••A********************************************************************/ 

striper  (s) 
char  *s; 
{ 

int  j ; 

/*  delete  trailing  spaces,  tabs,  and  carriage  returns  */ 

for  (j  =  strlen(s)  -  1  ;  s[j]  —  '  '  | |  a [ j]  —  '  \t'  II 

s(j]  —  '\n'  ;  s[j  — ]  -  NULL); 
} 

This  function  emulates  part  of  the  Turbo  C  bioskeyO  function. 
•••A*********************************************************************/ 

bioskey (c) 
int  c  ; 
{ 

switch(c)  { 

case  0 :  return  get_key ( ) ; 
easel:  return  kbhit(); 
) 
} 

/********************************************************•*********••**** 

This  function  reads  the  16-bit  scan  code  of  a  key. 
•A***********************************************************************/ 

get_key ( ) 
( 

union  REGS  r; 

r.h.ah  =  0; 
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return  int86(0xl6,  &r,  &r) ; 

> 

/************************************************************************ 

This  function  returns  the  position  code  of  arrow  and  function  keys. 

+  *•**********  +  **********************************************♦•*•■**»•■.»..... 

get_special  () 
{ 

union  inkey  { 
char  ch [ 2 ] ; 
int  i ; 
}  c; 

while  ( Ibioskey (1) ) ;      /*  wait  for  keystroke  */ 
c.i  =  bioskey(O);         /*  read  the  key  */ 

return  c . ch [ 1 ] ; 

} 

/************************************************************************ 
This  function  tests  if  a  character  is  in  a  given  string;  returns  the 
position  of  the  character  in  the  string  if  found,  otherwise  returns  0 . 

******************************************************************* 

is_in (s, c) 
char  *s,  c; 
{ 

register  int  i; 

for  (i-0;  *s;  i++)  if  (*s++  ==  c)  return  i+1; 
return  0; 

} 

/************************************************************************ 

This  function  beeps  the  speaker  using  the  specified  frequency. 
*************************************************************************/ 

void  beepl () 
{ 

int  freq=200; 
unsigned  i; 
union  { 

long  divisor; 
unsigned  char  c(2]; 
}  count ; 

unsigned  char  p; 

count .divisor  «■  1193280  /  freq;   /*  compute  the  proper  count  */ 

outp(67,  182);   /*  tell  8253  that  a  count  is  coming  */ 

outp(66,  count.c[0]);   /*  send  low-order  byte  */ 

outp(66,  count.c[l]);   /*  send  high-order  byte  */ 

p  =»  inp(97);   /*  get  existing  bit  pattern  */ 

outp(97,  p  |  3);   /*  turn  on  bits  0  and  1  */ 

for(i«0;  i<32000;  ++i)  ;   /*  delay  loop  */ 

outp(97,  p) ;  /*  restore  original  bits  to  turn  off  speaker  */ 
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) 

/************************************************************************ 

This  function  beeps  the  speaker  using  the  specified  frequency. 
*************************************************************************/ 

void  beep2 () 
{ 

int  freq=4  00; 
unsigned  i; 
union  { 

long  divisor; 
unsigned  char  c[2]; 
}  count ; 

unsigned  char  p; 

count .divisor  =  1193280  /  freq;   /*  compute  the  proper  count  */ 

outp(67,  182);   /*  tell  8253  that  a  count  is  coming  */ 

outp(66,  count.c[0]);   /*  send  low-order  byte  */ 

outp(66,  count.c[l]);   /*  send  high-order  byte  */ 

p  =  inp(97);   /*  get  existing  bit  pattern  */ 

outp(97,  p  |  3);   /*  turn  on  bits  0  and  1  */ 


for(i=0;  K32000;  ++i) ;   /*  delay  loop  */ 

outp(97,  p) ;  /*  restore  original  bits  to  turn  off  speaker  */ 


I 


/************************************************************************* 
video. c 

This  file  contains  a  number  of  functions  for  controlling  screen 
display  directly  using  video  RAM. 

Last  update:  13  April  198  9 


Functions : 

set_video ( ) 
video_mode ( ) 
save_screen ( ) 
restore_screen ( ) 
goto_xy ( ) 
cls() 
clear () 

write_string ( ) 
write_char () 
cursor_off () 
cursor_on ( ) 
display_error ( ) 
pause ( ) 

screen_getstrg ( ) 
draw_window ( ) 
vid_box ( ) 
********************* 


set  video  memory  location 
return  the  current  video  mode 
save  a  portion  of  the  screen 
restore  the  same  portion  of  the  screen 
send  the  cursor  to  row, col 
clear  the  screen 
clear  a  portion  of  the  screen 
display  a  string  with  specified  attirbute 
write  character  with  specified  attribute 
turn  blinking  cursor  off 
turn  blinking  cursor  on 
display  message  in  popup  window 
pauses  until  the  user  presses  the  INSERT  key 
takes  keystrokes  and  displays  them  on  the  screen 
draws  a  window  on  the  screen 
create  normal  video  "boxes" 
*****************************************************/ 


/*************************************************************************** 
This  function  sets  the  video  memory  location. 
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ft***************************************************************************/ 

void  set_video() 

{ 

int  vmode; 

vmode  =  video_mode(); 

if(  (vmode! =2)  &&  (vmode! =3)  &&  (vmode! =7)  )  { 
printf ("video  must  be  in  80  column  text  mode"); 
exit (1) ; 
> 

/*  set  proper  address  of  video  RAM  */ 
if(vmode==7)  vid__mem  ■  (char  far  *)  OxBOOOOOOO; 
else  vid_mem  ■  (char  far  *)  0xB8000000; 
} 

/*****************•******************************************•************** 

This  function  returns  the  current  video  mode. 
***********•*******************************************•********************/ 

video_mode ( ) 
I 

union  REGS  r; 

r.h.ah  =  15;  /*  get  video  mode  */ 

return  int86(0xl0,  &r,  &r)  &  255; 
} 

/••I************************************************************************* 

This  function  saves  a  portion  of  the  screen  to  memory. 
A***************************************************************************/ 

void  save_screen (rowl,  coll,  row2,  col2,  pt_buffer) 
int  rowl,  coll,  row2,  col2; 
char  *pt_buffer; 
( 

int  i ,  j  ; 

char  far  *pt_video; 

for  (i=rowl;  i<=row2;  ++i)  { 

pt_video  =  vid_mem  +  160*i  +  2*coll; 
for  (j-coll;  j<-col2;  ++j)  { 

*pt_buffer++  =  *pt_video++;  /*  Save  char.  */ 

*pt_buffer++  *  *pt_video++;  /*  Save  attribute.  */ 

> 
J 
I 

/a************************************************************************** 

This  function  restores  a  portion  of  the  screen  from  memory. 
a***************************************************************************/ 

void  restore_screen (rowl,  coll,  row2,  col2,  pt_buffer) 
int  rowl,  coll,  row2,  col2; 
char  *pt_buffer; 
{ 

int  i,  j; 

char  far  *pt  video; 
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for  (i=rowl;  i<»row2;  ++i)  { 

pt_video  -  vid_mem  +  160*i  +  2*coll; 
for  (j-coll;  j<-col2;  ++j)  { 

*pt_video++  =  *pt_buf fer++; 
*pt_video++  ■  *pt_buf fer++; 
> 
} 


} 


/********************************•***•****************************•********* 

This  function  clears  the  entire  screen. 
a***************************************************************************/ 

void  cls() 

{ 

union  REGS  r; 

r.h.ah=6;  /*  screen  scroll  code  */ 

r.h.al=0;  /*  clear  screen  code  */ 

r.h.ch=0;  /*  start  row  */ 

r.h.cl=0;  /*  start  column  */ 

r.h.dh=24;  /*  end  row  */ 

r.h.dl»79;  /*  end  column  */ 

r.h.bh=7;  /*  blank  line  is  blank  */ 
int86(0xl0,  &r,  &r) ; 
) 

This  function  clears  a  portion  of  the  screen,  using  either  normal  or 
reverse  video . 
*****************************•*************************************•********/ 

void  clear (rowl , coll, row2, col 2, at t rib) 
unsigned  rowl, row2, coll, col2; 
int  attrib; 
{ 

char  far  *pt_video; 

unsigned  row, col; 

for  (row=rowl;  row<=row2;  ++row) 

{ 

pt_video  —  vid_mem  +  160*row  +  2*coll; 

for  (col—coll;  col<=col2;  ++col) 

{ 

*pt_video++  ■  '  ' ; 
*pt_video++  ■  attrib; 
> 
} 
} 

/A************************************************************************** 

This  function  sends  the  cursor  to  a  specified  location  on  the  screen. 
***•*•*********•************************************************************/ 

void  goto_xy(row,  col) 
int  row,  col; 
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{ 

union  REGS  r; 

r.h.ah-2;      /*  cursor  addressing  function  */ 
r.h.dl^col;    /*  column  coordinate  */ 
r.h.dh-row;    /*  row  coordinate  */ 
r.h.bh=0;      /*  video  page  */ 

int86(0xl0,  &r,  &r) ; 
} 

/A************************************************************************** 
This  function  writes  a  string  at  a  specified  location  on  the  screen, 
using  a  specified  attribute. 
I****************************************************************************/ 

void  write_string (row,  col,  string,  attrib) 

int  row,  col; 

char  *string; 

int  attrib; 

{ 

register  int  i; 

char  far  *v; 

v  ■  vid_mem; 

v  +«  (row*160)  +  col  *  2;      /*  compute  the  address  */ 

for  (i-col;  *string;  i++)  { 

*v++  ■  *string++;        /*  write  the  character  */ 

*v++  ■  attrib;  /*  write  the  attribute  */ 

) 
} 

This  function  writes  a  string  at  a  specified  location  on  the  screen, 
using  a  specified  attribute. 

void  write_char (row,  col,  ch,  attrib) 
int  row,  col; 
char  ch; 
int  attrib; 

{ 

register  int  i; 
char  far  *v; 

v  ■  vid  mem; 

v  +»  (row*160)  +  col  *  2;  /*  compute  the  address  */ 

*v++  -  ch;  /*  write  the  character  */ 

*v  -  attrib;  /*  write  the  attribute  */ 

} 

This  function  turns  off  the  blinking  screen  cursor. 
♦♦•a************************************************************************/ 

void  cursor_off () 

{ 

union  REGS  r; 
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r.h.ah»l;      /*  cursor  size  code  */ 
r.h.ch=0x20;   /*  set  bit  5  on;  turn  off  cursor  */ 

int86(0xl0,  &r,  &r) ; 


} 


/*************************************************************************** 

This  function  turns  on  the  blinking  screen  cursor. 
****************************************************************************/ 

void  cursor_on() 
{ 

union  REGS  r; 


r.h.ah=l 
r .h.ch=6 

r.h.cl=7 


/*  cursor  size  code  */ 
/*  set  start  scan  line  */ 
/*  set  end  scan  line  */ 


int86(0xl0,  &r,  &r)  ; 


/ 


************************************************************************* 


Function:  display_error ( ) 
Author:  Todd  J.  Peltzer 
Last  update:  24  April  1989 

This  function  creates  a  popup  window  and  displays  up  to  two  lines  of 
text,  with  either  "ERROR"  or  "WARNING"  as  header,  or  with  a  blank  header. 
Maximum  length  of  text  per  line  is  38  characters. 
**************************************************************************/ 

static  char  footer []  ■ 

{"  Press  any  key  to  continue  "}; 

void  draw  window(); 


void  display_error (type, textl, text2) 

int  type; 

char  *textl,  *text2; 

{ 


char  *buffer; 

/* 

video  buffer 

V 

int  rowl«10, 

/* 

start  row 

*/ 

int  row2~16 

/* 

end  row 

*/ 

int  coll-19 

/* 

start  col 

V 

int  col2-61 

/* 

end  col 

*/ 

char  header [8] ; 

/* 

header  text 

*/ 

int  start; 

union  inkey  { 

char  ch [ 2 ] ; 

int  i; 

}  c; 

cursor  off ( ) ; 
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if  (type--ERROR) 
< 

sprintf (header, "ERROR") ; 

beepl  ()  ; 
I 

else  if  (type—WARN) 
{ 

sprintf (header, "WARNING") ; 

beep2 ( ) ; 
» 
else  ;         /*  type—BLANK  */ 

/*  allocate  enough  memory  for  video  buffer  */ 

buffer  =  (char  *)  malloc  (2  *  (row2-rowl+l)  *  (col2-coll+l)  ) 

/*  save  portion  of  video  screen  */ 
save_screen (rowl, coll , row2, col2 , buffer) ; 

/*  create  window  background  and  border  */ 
draw_window (rowl, coll, row2, col2, DOUBLE, REV_VID) ; 

if  (type«ERROR  |  |  type~WARN) 
{ 

/*  write  header  */ 

start=coll+ (col2-coll-strlen (header)  )  /2 ; 

write_string ( 11 , start , header, BLINK_REV_VID) ; 
) 

/*  write  footer  */ 

start =coll+ (col2-coll-strlen (footer) ) /2; 

write_string (row2, start, footer, REV_VID) ; 

/*  write  first  line  of  error  message  */ 
start ~coll+ (col2-coll-strlen(textl) ) /2; 
write_string ( 13 , start , text 1 , REV_VID ) ; 

/*  write  second  line  of  error  message  */ 
start-coll+ (col2-coll-strlen (text2) ) /2; 
write_string(14, start, text2, REV_VID)  ; 

/*  wait  for  keystroke,  then  restore  screen  and  exit  */ 

while  (1) 

{ 

c.i  -  bioskey(O);        /*  read  the  key  */ 

if  (c.ch[0])  /*  key  is  a  normal  key  */ 

{ 

break; 

} 

else  /*  key  is  a  special  key  */ 

{ 

break; 

} 
) 
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restore  screen (rowl, coll, row2 , col 2, buffer) ; 
free (buffer) ; 
cursor_on  ( )  ; 

} 

This  function  halts  program  execution  until  the  user  presses  the 
INSERT  key. 
I****************************************************************************/ 

void  pause  (startrow,  started,  endrow,  endcol,  msg,  attrib) 

int  startrow; 

int  started; 

int  endrow; 

int  endcol; 

char  *msg; 

int  attrib; 

{ 

int  start,  key,  i; 

/*  write  quit  message  */ 

start=  (endcol-startcol-strlen  (msg)  ) /2  +  started; 

write_string (endrow, start, msg, attrib) ; 

/*  get  user's  response  */ 

while  (1) 

{ 

key=get_special () ; 

if  (key==INSERT) 
{ 

/*    erase    message    */ 

for    (i=0;    Kstrlen  (msg)  ;    i++) 

{ 

write_char (endrow, start+i, 205, attrib) ; 

) 

break; 
} 
else  if  (key==ALT  Q)       /*  exits  program;  returns  to  DOS  */ 

{ 

cursor_on () ; 
cls(); 
exit (0) ; 
} 

else 
{ 

continue; 
} 

} 
) 

/•A*********************************************************************** 
This  function  takes  input  keystrokes  and  displays  them  on  the  screen. 
Uses  full  16  bit  scan  code. 
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typedef  struct 
{ 

int  start col; 

int  endcol; 
)  data_box; 

void  screen_getstrg (i, row, col, string, attrib, input) 

int  i;  /*  data  index         */ 

int  row,  col;     /*  starting  row,  col  */ 

char  *string;     /*  ptr  to  string      */ 

int  attrib;       /*  norm/rev  video     */ 

data_box  *input;  /*  data  structure     */ 

{ 

union  inkey  { 

char  ch [2] ; 

int  i ; 
}  c; 

int  j=0;        /*  array  index  */ 
int  k; 

while  (1) 
( 

c.i  =  bioskey(O);        /*  read  the  key  */ 

if  (c.ch[0]) 
{ 

switch  (c .ch[0] ) 
{ 

case  ESC   :  /*  the  ESCAPE  key  is  pressed  */ 

j=0;  /*  reset  array  index  */ 

string[ j] -NOLL;       /*  NULL  string  */ 
for  (k=input  [i]  .started;  k<input  [i]  .  endcol;  k++) 

write_char (row, k, '  ', attrib); 
col=input(i]  .started; 
break; 
case  '  \r'  :  /*  the  ENTER  key  is  pressed  */ 

string! j] -NULL;       /*  NULL  terminate  string     */ 
return; 
case  BKSP  :  /*  back  space  */ 

if  (col  ■■  input  [i]  .  started)  break;   /*  prevent  backspacing  past  start  */ 

else 

( 

col  —  ; 

j— ; 

write_char (row, col, '  ', attrib); 

c . ch [ 0 ]  -  '  '  ; 

string [ j ] =c . ch [ 0 ]  ; 

break; 
} 
case  '  '  : 

if  (i>0)  break;    /*  spaces  not  allowed  in  numeric  input  */ 
else  if  (col  ■■  input [i] . endcol-1) 
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break;   /*  no  typing  beyond  end  of  box  */ 
) 

else 
{ 

write_char (row, col, c.ch[0] , at t rib) ; 

string [ j] =c .ch[0] ; 

col++; 

break; 
} 
default  : 

if  (col  ==  input [i] .endcol-1) 
< 

break;   /*  no  typing  beyond  end  of  box  */ 

) 

else 


I 


write_char (row, col, c.ch[0] , attrib) ; 

string ( j ] =c . ch [ 0 ] ; 

col++; 


> 

goto_xy (row, col) ; 
> 

else 
( 

switch (c.ch [1] ) 


{ 


case  ALT_Q  : 

cursor  on  ()  ; 

cls(); 

exit (0) ; 
default  : 

break; 


} 

This  function  draws  a  window  on  the  screen  with  a  specified  video 
attribute  (reverse  or  normal),  and  a  specified  border  (single  or  double) . 
a***************************************************************************/ 

void  draw  window (startrow, startcol, endrow, endcol, border , attrib) 


int  startrow; 
int  startcol; 
int  endrow; 
int  endcol; 
int  border; 
int  attrib; 
{ 

int  row, col; 


/* 
/* 
/* 
/* 

/* 


starting  row,  screen  coordinates  */ 
starting  col,  screen  coordinates  */ 
ending  row,  screen  coordinates  */ 
ending  col,  screen  coordinates  */ 
if  1,  single  border;  if  2,  double  border  */ 


/*  normal  or  reverse  video  */ 
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int  upr_lft, upr_rt, lwr_lft, lwr_rt , top, bot, side; 

if  (border—S  INGLE) 

{ 

upr  lft=218; 
upr_rt=191; 
lwr_lft=192; 
lwr_rt=217; 
top=bot=196; 
side=179; 

} 

if  (border==DOUBLE) 

{ 

upr_lft=201; 

upr_rt=187; 

lwr_lft=200; 

lwr_rt=188; 

top=bot=205; 

side=186; 

} 

/*  create  background  */ 
for  (row=startrow;  row<=endrow;  row++) 
for  (col—startcol;  col<=endcol;  col++) 
write_char (row, col, '  ' , attrib) ; 

/*  if  no  border,  exit  */ 

if  (border==NONE) 

( 

return; 

} 

/*  draw  border  */ 

write_char  (startrow,  started,  upr_lft,  attrib)  ;    /*  draw  corners  */ 

write_char (startrow, endcol, upr_rt, attrib) ; 

write_char (endrow, startcol, lwr_lft, attrib) ; 

write_char (endrow, endcol, lwr_rt, attrib) ; 

f  or  (col=startcol+l;  coKendcol;  col++)         /*  draw  top  border  */ 

write_char (startrow, col, top, attrib) ; 
for (col»startcol+l;  coKendcol;  col++)         /*  draw  bottom  border  */ 

write  char (endrow, col, bot , attrib) ; 
for (row-startrow+1;  row<endrow;  row++)         /*  draw  left  border  */ 

write_char (row, startcol, side, attrib) ; 
for (row"atartrow+l;  row<endrow;  row++)         /*  draw  right  border  */ 

write  char (row, endcol, side, attrib) ; 


) 

This  function  draws  text  header  on  the  screen  with  a  specified  video 
attribute  (reverse  or  normal),  and  a  single  border, 
a***************************************************************************/ 

void  write_header (startrow, startcol, endcol, header, attrib) 
int  startrow; 
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int  started ; 
int  endcol; 
char  *header; 
int  attrib; 
{ 

int  start; 

start  =  (endcol-startcol-strlen  (header)  ) /2  +  started; 
draw_window (startrow+1, start-1, startrow+3, start+strlen (header) , 

SINGLE, attrib) ; 
write_string(startrow+2, start, header, attrib) ; 

) 

/*************************************************************************** 

This  function  is  used  to  create  normal  video  "boxes"  on  an  otherwise 
reverse  video  background  to  highlight  data  entry  locations. 
****************************************************************************/ 

void  vid_box(startrow,  started,  length) 

int  startrow; 

int  started; 

int  length; 

{ 

int  i ; 

/*  create  normal  video  boxes  for  data  entry  */ 
for  (i=0;  Klength;  i++) 

write_char (startrow, startcol+i, '  ' ,NORM_VID) ; 

} 


/*************************************************************************** 

popup . c 

Author:  Todd  J.  Peltzer 


Last  update:  29  March  1989 


Functions : 
popup ( ) 

display_menu ( ) 
get_resp ( ) 
************************************************************************ 

void  display_menu () ,  draw_window() ; 

/*************************************************************************** 
This  function  displays  a  pop-up  menu  and  returns  the  user's  selection: 

—  returns  -2  if  menu  cannot  be  constructed 
--  returns  -1  if  user  hits  escape  key 

—  otherwise  the  item  number  is  returned  starting 

with  0  as  the  first  (top  most)  entry 
****************************************************************************/ 

int  popup  (menu,  keys,  count,  startrow,  started,  border,  attrib,  start) 

char  *menu [ ] ;    /*  menu  text  */ 

char  *keys;      /*  hot  keys   */ 

int  count;       /*  number  of  menu  items  */ 
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int  startrow;    /*  starting  row,  screen  coordinates  */ 

int  started;    /*  starting  col,  screen  coordinates  */ 

int  border;      /*  if  0,  no  border;  if  1,  single  border;  if  2,  double  border  */ 

int  attrib;      /*  normal  or  reverse  video  */ 

int  start;       /*  starting  item  to  highlight  */ 

{ 

register  int  i,  len; 

int  endrow;      /*  ending  row,  screen  coordinates    */ 

int  endcol;      /*  ending  col,  screen  coordinates    */ 

int  choice,  vmode; 

unsigned  char  *p;   /*  buffer  for  screen  data  */ 

if(  (startrow>24)  ||  (startrow<0)  ||  (startcol>79)  ||  (startcoKO)  ) 
{ 

printf ( "range  error"); 

return  -2; 

} 

/*    compute    dimensions    */ 

len   =   0; 

for(i=0;    Kcount;    i++) 

if (strlen (menu (i] )  >  len)  len  =  strlen (menu [i] ) ; 
endcol  =  len  +  4  +  started; 
endrow  =  count  +  1  +  startrow; 
if  ((endrow+l>24)  ||  (endcol+l>79) ) 
{ 

printf ("menu  won't  fit"); 

return  -2; 
) 


/*  allocate  enough  memory  for  menu  screen  buffer*/ 

p  =  (unsigned  char  *)  malloc (2* (endrow-startrow+1) * (endcol-startcol+1) ) ; 

if(!p)  exit(l);  /*  install  error  handler  here  */ 

/*  save  the  current  screen  data  */ 

save_screen  (startrow,  started,  endrow,  endcol,  p)  ; 

/*  draw  border  and  background  */ 

draw_window  (startrow,  started,  endrow,  endcol,  border,  attrib)  ; 

/*  display  the  menu  */ 

display_menu(menu, startrow+1, startcol+2, count , attrib) ; 

/*  get  the  user's  response  */ 

choice  =  get_resp (startrow+1, startcol+1, count, menu, keys, attrib, start) ; 

/*  restore  the  original  screen*/ 

restore_screen  (startrow,  started,  endrow,  endcol,  p)  ; 
free (p) ; 
return  choice; 
> 
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This  function  displays  the  menu  in  its  proper  location 

void  display_menu (menu, row, col, count, attrib) 

char  *menu [ ] ; 

int  row; 

int  col; 

int  count; 

int  attrib; 

{ 

register  int  i; 

for(i=0;  Kcount;  i++,  row++)  { 

write_string(row, col,  menu[i],  attrib); 

} 
) 

This  function  gets  the  user's  selection. 
/**************************************************************************•/ 

get_resp (row, col, count, menu, keys, attrib, start) 

int  row,  col,  count; 

char  *menu [ ] ; 

char  *keys; 

int  attrib; 

int  start; 

{ 

union  inkey  ( 

char  ch [2] ; 
int  i ; 

}  c; 

int  arrow_choice=start,  key_choice; 

int  highlight; 

col++; 

/*  highlight  the  first  selection  */ 

if  (attrib==NORM_VID) 

{ 

highlight  =  REV_VID; 
} 

else  if  (attrib-=REV_VID) ; 
{ 

highlight  -  NORM_VID; 
} 

goto_xy (row+start,  col); 
write_string(row+start,  col,  menu [0+start] ,  highlight); 

for ( ; ; ) 
{ 

while ( !bioskey(l) )  ;  /*  wait  for  key  stroke  */ 

c.i  ■  bioskey(O);     /*  read  the  key  */ 

/*  reset  the  selection  to  original  video  attribute  */ 
goto_xy (row+arrow  choice,  col); 
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write  string (row+arrow  choice, col, menu [arrow_choice] , attrib) ; 

if(c.ch[0])      /*  is  normal  key  */ 
{ 

/*  see  if  it  is  a  hot  key  */ 

key_choice  ■  is_in(keys,  tolower (c. ch [0 ] ) ) ; 

if (key_choice)  return  key_choice-l; 

/*  check  for  ENTER  or  space  bar  */ 

switch(c. ch [0] ) 

{ 

case  ' \r' :  return  arrow_choice; 
case  '  '  :  arrow_choice++; 

break; 
case  ESC  :  return  -1;  /*  cancel  */ 
} 
} 

else         /*  is  special  key  */ 
{ 

switch(c.ch [1] ) 
< 

case  UP_ARROW: 

arrow_choice--;  /*  up  arrow  */ 
break; 
case  DOWN_ARROW: 

arrow_choice++;  /*  down  arrow  */ 
break; 
case  HOME: 

arrow_choice=0 ; 
break; 
case  END: 

arrow_choice=count-l; 
break; 
} 
} 

if (arrow_choice==count)  arrow_choice=0; 
if (arrow_choice<0)  arrow_choice=count-l; 

/*  highlight  the  next  selection  */ 

goto_xy (row+arrow_choice,  col) ; 

write  string (row+arrow  choice, col, menu [arrow_choice] , highlight) 

} 
} 
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